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evenmin in een retrieval system worden opgeslagen zonder 
voorafgaande schriftelijke toestemming van de uitgever. 


VOORWOORD 


AAN DE DOCENT 


Ik denk dat de docent COBOL zichzelf de volgende belangrijke 
vragen stelt: 


1. Росеег ік de Divisions іп de volgorde waarin ze worden 
gecodeerd of in de volgorde van hun belangrijkheid voor de 
programmeringstaak? De eerste methode is recht door zee, maar de 
bijzonderheden van de Environment en Data Divisions kunnen in 
het gunstigste geval zonder betekenis zijn voor de student totdat 
hij iets geleerd heeft over de Procedure Division, en in het 
ongunstigste geval stomvervelend zijn. Doceren we met de alter- 
natieve methode dan lopen we misschien de kans dat de student 
verloren raakt doordat hij geen zicht op een totaalbeeld krijgt. 


2. Zet ik alle puntjes op de i gedurende de lessen, of concen- 
treer ik me op de hoofdlijnen om de studenten іп staat te stellen 
snel een eenvoudig programma te laten schrijven? Het eerste kan 
saai zijn of kan ertoe leiden dat de student de belangrijke kern 
in de lawine van details uit het oog verliest. Het tweede is 
aantrekkelijk, maar houdt in dat òf de student de leergang afsluit 
zonder de bijzonderheden te kennen, òf de docent moet teruggaan 
en dezelfde stof met meer oog voor het detail behandelen. 


3. Фосеег ik het COBOL-dialect dat geldt voor de computer die 
ik gebruik, of probeer ik het bijzondere te onderscheiden van het 
algemene? Het eerste is duidelijk een praktischer gerichte aanpak 
op korte termijn, maar het tweede kan waardevoller voor de student 
blijken op lange termijn. 


4. Ное doceer ik aan een groep met gemengde capaciteiten? Als 
de docent te snel gaat, verliest hij de langzamere en minder 
ervaren studenten, of hij zal op een verkeerd begrepen basiskennis 
voortbouwen. Als de docent te langzaam gaat en veel tijd besteedt 
aan het voorkomen van verkeerd begrip, riskeert hij dat de snellere 
student zijn aandacht geheel van het onderwerp afwendt. 
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9. Moet ik de cursus beginnen met het behandelen van programma 
structuren om daarna te laten zien hoe deze in COBOL weergegeven 
kunnen worden of breng ik eerst een basis van elementair COBOL 
bij om aan de hand daarvan het structureel programmeren te intro- 
duceren. 


Ieder van deze problemen vormt een dilemma en daarom is er 
aanleiding voor een bespreking van het antwoord. Ik geef in het 
hierna volgende mijn redenen voor de keuze van de aldaar ont- 
wikkelde oplossingen, maar ik hoop dat u dit boek zo flexibel vindt 
dat u de methode die u persoonlijk verkiest (bijvoorbeeld de stof in 
een andere volgorde behandelen) kunt uitvoeren. 


DE AANPAK VAN DIT BOEK 


Het boek bestaat uit drie delen. Deel 1 concentreert zich op het 
wezenlijke van de taal en brengt de student op een niveau waar 
hij een naar omvang bescheiden COBOL-programma dat gebruik 
maakt van seriegewijze bestanden kan schrijven. Deel 2 veronder- 
stelt een zekere bekwaamheid in de grondbeginselen van COBOL en 
licht het ontwerpen van programma's nader toe en andere program- 
meringsvaardigheden die deel behoren uit te maken van het 
repertoire van de professionele programmeur. Deel 3 verbreedt de 
taalkennis van de student door een nadere toelichting van de meer 
geavanceerde kenmerken en mogelijkheden van COBOL. 

Ieder deel bestaat uit een aantal hoofdstukken en elk hoofd- 
stuk zou een leidraad voor één college kunnen zijn. De docent 
licht de stof in het hoofdstuk toe (hetgeen ongeveer 1 uur in 
beslag neemt), waarbij hij zich concentreert op de kerngedachten 
en zoveel details als gewenst is voor zijn doel overslaat. Vervolgens 
nodigt hij de studenten uit om de tekst van dat hoofdstuk te 
bestuderen. 

Een hoofdstuk bestaat uit een aantal pregnant geschreven 
paragrafen gevolgd door vragen die een werkelijkheidsgetrouwe 
test van het begrip van de student, zowel ten aanzien van de kern 
als het detail, beogen te zijn. Snelle of ervaren studenten zijn in 
staat het hoofdstuk in ca. 1 uur af te maken, en veel studenten 
kunnen zo'n hoofdstuk zonder verdere hulp volledig in zich op- 
nemen. De docent kan zijn aandacht dan concentreren op die 
studenten die het hoofdstuk niet uit zichzelf kunnen bevatten. 

Om terug te keren tot de vijf vragen, dit boek beantwoordt 
ze als volgt: 


1. Ма het inleidende hoofdstuk (dat kan wegvallen voor ervaren 
studenten) wordt een beknopt overzicht gegeven van alle vier 
divisions. Daarna worden beschrijvingen uit de Procedure Division 
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en Data Division geïntroduceerd іп de volgorde die ІК voor een 
goed begrip natuurlijk vind. De student wordt op diverse plaatsen 
herinnerd aan de betrekkingen tussen de divisions. Voor de 
praktijkopgave aan het slot van hoofdstuk F geeft de docent aan 
de student over te nemen beschrijvingen van de Identification 
Division en Environment Division. Deze laatste divisions worden 
behandeld іп het laatste hoofdstuk van deel 1 (hoofdstuk J) 
evenals een lijvige opgave gebaseerd op een programma dat 
gegevens valideert. 


2. Пе docent kan zich op hoofdlijnen concentreren in zijn betoog. 
De student leert het detail uit het boek. 


3. Неї boek is onafhankelijk van een bepaalde computer en volgt 
de American National Standard COBOL. Waar de standaard ruimte 
laat voor interpretatie van de computerfabrikant, worden gebrui- 
kelijke variaties behandeld. 

Waar ik een tegenstelling heb aangetroffen tussen een imple- 
mentatie en de standaard, heb ik de variatie vermeld. 

Slechts de algemeen gebruikelijke beschrijvingen in de 
Environment Division zijn behandeld. Het ingaan op alle finesses 
van USAGE COMPUTATIONAL en zijn variaties zou een enorm stuk 
werk betekenen. De docent oordele zelf over punten als deze, 
want hij kent de machine die de studenten gebruiken. 


4, Omdat alle studenten de tekst van het vorige hoofdstuk 

hebben doorgewerkt, staan ze op een gelijkwaardiger ontwikkelings- 
niveau bij het begin van een les dan wellicht het geval is bij 
andere methodes. Vele algemeen verbreide misvattingen worden in 
het boek behandeld. Bovendien kan de docent, terwijl de tekst 
wordt doorgewerkt, zijn aandacht concentreren op het helpen van 
die studenten die daaraan het meest behoefte hebben. 


5. Over het algemeen kan de toelichting op gestructureerd pro- 
grammeren nauwkeuriger en zinvoller zijn, als de student geacht 
wordt te beschikken over een reeds bestaande kennis m.b.t. 
programmeren en de moeilijkheden van probleemoplossing met de in 
de taal beschikbare besturingsstructuren heeft ervaren. Daarom 
wordt het ontwerpen van programma's naar Deel 2 verschoven. 
Indien de student evenwel COBOL als tweede taal bestudeert, is 

er een hele goede reden om te beginnen met een aantal onderwerpen 
uit Deel 2. 


AAN DE STUDENT 


Heeft u het juiste boek in handen? 
Dit is geen boek voor zelfstudie. Het is bedoeld om een serie 
lessen te begeleiden. 
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Anderzijds kunt и, als u al enige notie heeft van het pro- 
grammeren van een computer, dit boek beschouwen als een zeer 
snelle manier om COBOL meester te worden. Als u al een beetje 
COBOL kent, kunnen de delen 2 en 3 van het boek uw horizon 
verbreden. 


Hoe COBOL te leren? 

Wanneer u een vreemde taal - bijvoorbeeld Engels - leert, dan 
kunt u de theorie en structuur ervan begrijpen door te luisteren 
naar een docent of een studieboek erover te lezen. Dit zal u niet 
veel helpen wanneer u van de boot in Harwich stapt. De enige weg 
naar welbespraaktheid in de taal is het spreken van die taal. Het 
verbeteren van de uitspraak van de woorden, het vormen van uw 
eigen bewoordingen en zinnen zijn wezenlijke bestanddelen van het 
leren en zich herinneren. 

Het leren van COBOL gaat evenzo, zij het dat COBOL alleen 
als een geschreven taal bestaat. Vaardigheid in COBOL wordt 
verworven door het schrijven ervan. 

Dit boek bevat vele opgaven die vragen om geschreven 
antwoorden; het is van groot belang dat u de antwoorden opschrijft. 
Geestdriftige studenten worden soms verleid om de vragen 'in hun 
hoofd! te beantwoorden, ongeduldig als ze zijn om vorderingen te 
maken met het onderwerp. Biedt weerstand aan deze verleiding, 
want anders kan het er wel eens op uitlopen dat u in Harwich 
aankomt en alleen maar gelezen heeft over Engels. 


Hoe dit boek te gebruiken? 

Ieder hoofdstuk van het boek (hoofdstuk А, hoofdstuk B 
enzovoort) omvat een aantal paragrafen (paragraaf Al, paragraaf 
A2 enzovoort). Aan het eind van iedere paragraaf staan enige 
vragen. Lees de paragraaf en schrijf de antwoorden bij de vragen 
ор. 

Als u een vraag niet kunt beantwoorden, herlees dan de 
belangrijke paragraafgedeeltes. Als u het spoor bijster raakt, of 
als er iets niet duidelijk is, vraag het dan aan uw docent. 


DANKWOORD 


Opnieuw moet dank worden betuigd aan Roger Barnes, David Howe 
en Derek Ruffhead voor hun assistentie bij de eerste druk. Er is 
nauwelijks een dag voorbijgegaan sinds de publicatie van de eerste 
druk zonder dat ik de onwaardige ontvanger was van een waarde- 
volle gedachte mij aangedragen in het leslokaal, de docentenkamer 
of via de post. Zelfs al zou ik me al deze bronnen kunnen i 
herinneren, de lijst met dankwoorden zou te lang worden om ze 
allemaal te omvatten. Mijn waardering gaat uit naar de vele 
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studenten en de staf van Leicester Polytechnic еп het New South 
Wales Institute of Technology voor hun hulp evenals naar de 
Nederlandse vertalers van de eerste druk, H.J. Stomps en A.M. 
Korff die met hulp van hun studenten een goudmijn aan correcties 
en ideeën aandroegen. Bovendien ben ik bijzondere dank verschul- 
digd aan Bob Coats voor zijn door hem gegeven tijd en raad. 

Een woord van dank is ook verschuldigd aan die organisaties 
die hebben bijgedragen aan de ontwikkeling van COBOL. Ik geef 
hier een mededeling op hun verzoek weer: 

„COBOL is een industriële taal en is niet het eigendom van 
een maatschappij of groep van maatschappijen, of van een instelling 
of groep van instellingen. 

Geen waarborg, expliciet noch impliciet, wordt verstrekt door 
welke medewerker dan ook of door het COBOL Committee voor de 
nauwgezetheid en het functioneren van het programmeringssysteem 
en de taal. Bovendien wordt geen enkele verantwoordelijkheid 
aanvaard door welke medewerker dan ook, of door het Committee, 
in verband hiermede. 

Procedures zijn vastgelegd voor de instandhouding van 
COBOL. Aanvragen betreffende de procedures i.v.m. het voor- 
stellen van wijzigingen moeten worden gericht aan het Executive 
Committee of the Conference on Data Systems Languages. 

De auteurs en copyrighthouders van het van copyright 
voorziene en hierin gebruikte materiaal: FLOW-MATIC (trademark 
of Sperry, Rand Corporation), Programming for the UNIVAC І and 
п, Data Automation Systems copyrighted 1958, 1959 by Sperry Rand 
Corporation; IBM Commercial Translator Form No. F. 28-8013, 
copyrighted 1959 by ІВМ; FACT,DSI 2745260-2760, copyrighted 
1960 by Minneapolis-Honeywell hebben specifiek het gebruik van 
dit materiaal, geheel of gedeeltelijk, in de COBOL-specificaties 
geautoriseerd. Dusdanige autorisatie strekt zich uit tot en met de 
reproduktie en het gebruik van COBOL-specificaties in handboeken 
voor het programmeren of soortgelijke publicaties." 
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DEEL 1 


Basisbegrippen 


А GRONDSLAGEN EN BEGRIPPEN - 
EEN OVERZICHT 


A1 DE COMPUTER 


FIGUUR 1 Algemeen overzicht van een computer (IBM-foto) 
1) magneetbandeenheden 2) ponskaartlezer 3) beeldbuisterminal 
4) behuizing CVE en geheugen 5) operator's console 6) printers 
7) magneetschijfgeheugens. 


Een digitale computer bestaat uit een centrale verwerkingseenheid 
(CVE), waarop via kabels bepaalde randapparaten zijn aangesloten. 
De CVE heeft drie hoofdonderdelen: een besturingsorgaan, 
dat alle werkzaamheden van de machine bestuurt en de opdrachten 

vervat in het programma uitvoert; een rekenorgaan, dat optelt, 
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vermenigvuldigt, enzovoort; en een geheugen, dat het uit te voeren 
programma opslaat evenals de gegevens waarmee het lopende pro- 
gramma werkt. 

Het besturingsorgaan haalt een opdracht uit het geheugen, 
voert deze uit, haalt de volgende opdracht, voert deze uit, enzo- 
voort. 

Alle programma's beginnen met enige oorspronkelijke gegevens 
(invoer) die worden verwerkt om nieuwe gegevens (uitvoer) te 
produceren. 

De machine voert slaafs de opdrachten uit en het is voor een 
computer feitelijk onbestaanbaar een opdracht foutief uit te voeren. 
Als de uitvoer niet klopt, dan is er dus bijna zeker een fout in 
de invoergegevens geslopen of een logische fout in de programma- 
opdrachten. | 

Пе randapparaten zijn afzonderlijk opgestelde machines, die 
bestuurd worden door de CVE. Er bestaat invoerapparatuur (voor 
de verstrekking van gegevens en programma's aan het geheugen), 
uitvoerapparatuur (voor het uitvoeren van de programmaresultaten 
vanuit het geheugen) en opslagapparatuur (die hoofdzakelijk 
gebruikt wordt voor de opslag van de uitvoergegevens die in een 
later stadium opnieuw zullen moeten worden ingevoerd voor verdere 
verwerking). 


Opgaven 


Als u een vraag niet direct kunt beantwoorden, probeer dan eerst 
bet antwoord іп de paragraaf te vinden. Toets pas daarna uw 
antwoorden aan de oplossingen aan het eind van het hoofdstuk. 
Het maken van de opgaven wordt voor het verwerken van de stof 
ten zeerste aanbevolen. 


1. Welk doel heeft een invoerapparaat? 

2. Welk doel heeft opslagapparatuur? 

3. Welke twee hoofdoorzaken van fouten in de uitvoer van de 
computer bestaan er? 

4. Waar is het computerprogramma tijdens zijn verwerking 
opgeslagen? 

о. Kunnen uitvoergegevens ook als invoer gebruikt worden? 


A2 BEELDSCHERMTERMINAL 


Een van de gebruikelijkste invoerapparaten is het aan een beeld- 
scherm gekoppelde toetsenbord, ook wel algemeen een terminal 
genaamd (zie figuur 2). 
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FIGUUR 2 Een beeldschermterminal met toetsenbord 


Het beeldscherm van de meeste terminals kan 20 regels met 80 
tekens per regel zichtbaar maken. Naar de positie van een teken 
in een regel wordt dikwijls verwezen d.m.v. zijn kolomnummer. Zo 
staat het eerste teken in een regel in kolom 1; het twintigste teken 
in een regel zou dan staan in kolom 20. 

leder opvolgend teken dat wordt aangeslagen op het toetsen- 
bord wordt gewoonlijk afgebeeld op het scherm. De aangeslagen 
tekens worden dikwijls opgeslagen in een buffergeheugen binnen 
de beeldschermterminal, totdat de RETURN-toets wordt ingedrukt. 
Wanneer dit gebeurt, worden alle tekens in de bewuste regel 
overgebracht naar de centrale verwerkingseenheid. Zo is de basis- 
eenheid waarmee de operator krijgt te maken de regel met tekens; 
de operator maakt een regel klaar en drukt, wanneer het zover is, 
op de RETURN-toets om de regel aan de computer over te dragen. 

Indien de terminal niet over een buffergeheugen beschikt, 
wordt ieder afzonderlijk teken naar de computer gezonden, zodra 
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de toets is ingedrukt. Terminals zonder buffergeheugen zijn tamelijk 
gebruikelijk in het bedrijfsleven, maar aan computers gekoppelde 
terminals ten behoeve van instructie aan programmeurs zijn dikwijls 
van het type met een buffergeheugen. 

Figuur 2 illustreert eveneens een ander invoerapparaat dat 
soms wordt gebruikt bij terminals zonder buffergeheugen: de licht- 
pen. Dit apparaat tast het licht, dat van het scherm komt, af en 
brengt vervolgens aan de CVE de coördinaten over van het punt 
op het scherm, waarop de pen is gericht. 

De terminal kan ook worden gebruikt als uitvoerapparaat. Een 
in het geheugen van de computer gemaakte boodschap wordt naar 
de terminal gezonden om te worden getoond op het scherm. Gewoon- 
lijk wordt slechts één regel tegelijk verzonden, maar op een 
terminal met 20 regels blijven de vorige 19 regels zichtbaar, tenzij 
de instructie is gegeven het scherm leeg te maken. De vertoning 
(van de boodschap) gaat verloren, wanneer de terminal wordt 
uitgeschakeld. Wanneer er een permanente boodschap wordt 
vereist, verdient het wellicht de voorkeur een 'harde kopie! af te 
drukken, zoals wordt uitgelegd in de volgende paragraaf. 

De programmeur dient een beslissing te nemen waar ergens 
op de regel een gegeven moet worden ingetoetst. De kolommen die 
zijn toegewezen voor het intoetsen van een bepaalde groep tekens 
worden een veld genoemd. De regel is dus verdeeld in velden, die 
ieder weer één of meer tekens bevatten. Soms is het wenselijk te 
bedenken dat een veld is verdeeld in twee of meer kleinere velden; 
in dit geval wordt het grotere veld een groepsveld genoemd. Niet 
verder onderverdeelde velden heten elementaire velden. 


Opgaven 


21. Hoeveel kolommen heeft de beeldschermterminal gewoonlijk? 
Hoeveel tekens kunnen gewoonlijk op één regel worden 
ingevoerd? Hoeveel tekens kunnen op het gehele scherm 
worden afgebeeld? 


2. Als een regel een naam (13 tekens) bevat, een adres (40 
tekens) en een rekeningnummer (6 cijfers), hoeveel kolommen 
worden dan gebruikt? Hoeveel elementaire velden zijn er in die 
regel? 


3. Het veld 'rekeningnummer!' іп ееп regel bevat een veld 
provincie (1 cijfer), een veld klantensoort (1 cijfer) еп een 
veld volgnummer (4 cijfers). Hoe groot is het groepsveld? 


(G ПОВИ O u UU U UU LL... на 
A3 DE REGELDRUKKKER 


trommel 


J М `x 
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carbon 


% 


м 


hamers 


FIGUUR 3 Regeldrukker met trommel 


Het gebruikelijkste middel voor de uitvoer van voor de mens 
leesbare gegevens is de regeldrukker. Het belangrijkste type 
regeldrukker (figuur 3) heeft een trommel, maar er bestaan ook 
andere, bijvoorbeeld kettingdrukkers, matrixdrukkers, letterwiel- 
drukkers, inktstraaldrukkers en laserdrukkers. 

De metalen omtrek van de trommel is gegraveerd met alle 
tekens - een rij A's, een rij B's, enzovoort. Tegenover elk teken 
van zo'n rij bevindt zich een hamertje. Het papier en het karbon 
worden tussen de hamertjes en de trommel ingeschoven. 

Stel nu dat in het geheugen een gehele regel klaar staat om 
te worden afgedrukt. De regeldrukker wordt aangezet en de 
trommel begint met grote snelheid rond te draaien. Zodra een rij 
tekens tegenover de hamertjes verschijnt, slaan die hamertjes aan, 
die overeenkomen met de posities in de regel waar dat teken 
gedrukt moet worden. Daarbij drukken de hamertjes het papier op 
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het teken met het karbon daartussenin. Op deze wijze worden alle 
A's in een regel afgedrukt, daarna alle B's, de C's, enzovoort, 
totdat de gehele regel is gevuld. 

Het papier zelf is een waaiervormig, in pagina's van gewoon- 
lijk 66 regels verdeeld, kettingformulier. Het wordt op zijn plaats 
gehouden en door de regeldrukker gevoerd met behulp van tand- 
raderen die grijpen in gaten aan beide kanten van het papier. 

Een regeldrukker is een machinerie van de hoogste precisie 
en bereikt snelheden van 300 tot 2000 regels per minuut. 


Opgaven 


1. Hoeveel hamertjes zou een regeldrukker tellen die regels met 
maximaal 132 tekens afdrukt? 


2. Hoeveel omwentelingen van de trommel zijn vereist om een 
regel af te drukken? 


3. Hoe wordt de aanvoer en het op z'n plaats houden van het 
papier geregeld? 


4. Hoeveel regels kan een pagina afdrukpapier gewoonlijk 
bevatten? 


5. Als een regeldrukker 600 regels per minuut afdrukt, in hoe- 
veel tijd wordt dan één regel afgedrukt? 


A4 OPSLAGAPPARATUUR 


Niet alle programmaresultaten behoeven te worden afgedrukt. 
Veronderstel bijvoorbeeld dat een programma een lijst van afgege- 
ven goederen van een warenhuis moet opleveren, waarbij de orders 
die per week geplaatst zijn als invoer dienen. Het is tevens 
gewenst dat daarbij de voorraad van alle in omloop zijnde goederen 
wordt bijgehouden in een vorm die de computer kan lezen. De 
afgegeven goederen zullen de omvang van deze voorraad doen 
verminderen, hetgeen resulteert in een bijgewerkte voorraad per 
soort goederen. Het is niet noodzakelijk deze bijgewerkte voorraden 
af te drukken; ze kunnen uitgeschreven worden naar een achter- 
grondgeheugen en het aldus gecreëerde bestand kan de week 
daarop bij het mutatieprogramma van die week wederom ingevoerd 
worden (zie figuur 4). 

De belangrijkste vormen van achtergrondgeheugen zijn 
momenteel magneetbanden en magneetschijven. De informatie wordt 
door een magneetbandstation op de magneetband vastgelegd. Dit 
apparaat werkt op dezelfde manier als een bandrecorder thuis (of 
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Invoer Stambestanden Computergangen Overdrachtsbestanden | Uitvoer 


WEEK 0 
AANWEZIGE 
VOORRAAD 


ACHTERGROND 
GEHEUGEN 


| 
| 
| 
| 
| 
| 
VOORRAAD- | 
| 
| 
| 
| 
| 
| 
| 


| 
| 
| 
| 
| 
| PROGRAMMA WEEK 1 
WEEK 1 AFGIFTEN 
ORDERS 1 АЕСІЕТЕ (САМС 
| IN WEEK 1) | REGELDRUKKER 
| WEEK 1 | 
AANWEZIGE 
l VOORRAAD | | 
' ACHTERGROND | | 
GEHEUGEN 
| | 
WEEK 2 l I | 
ORDERS 
| REGELDRUKKER 
WEEK 2 | 
AANWEZIGE 
| 
| 


ACHTERGROND 
GEHEUGEN 


x 


NAAR WEEK 3 


FIGUUR 4 Het bijwerken van een bestand 


als een cassetterecorder ingeval van microcomputers), maar hij doet 
dat wel veel sneller en de magneetband is ook veel langer (ca. 730 
meter is een gebruikelijke maat). Aangezien gegevens op de band 
vastgelegd kunnen worden met een dichtheid van zo'n 630 tekens 
per em, kunnen verscheidene miljoenen tekens op één enkele band 
worden opgenomen. Dit is veel meer informatie dan in het geheugen 
van de CVE kan worden opgeslagen, vandaar dat programma's 
worden geschreven waarbij slechts één record tegelijk wordt 
ingelezen en verwerkt en mogelijke resultaten worden uitgevoerd, 
om vervolgens het volgende record in te kunnen lezen, te 
verwerken, enzovoort. 

Record is de term voor een verzameling bij elkaar behorende 
velden. Zo zouden de gegevens op een regel van een beeldscherm 
een record kunnen vormen; de gegevens in een afgedrukte regel 
eveneens. Voorbeelden van bestanden en records op magneetband 
zijn: 

Artikelbestand - ieder record іп het bestand zou kunnen 

bevatten: 

1. een artikelnummer 

2. een artikelbeschrijving 

3. de voorraad 
enzovoort, enzovoort. 
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Werknemersbestand (voor salarisadministratie) - een record 
zou kunnen bevatten: 


1. werknemersnummer 

2. Werknemersnaam 

3. Maandsalaris 

4. inhoudingen 

5. salaris tot op heden 
6. belasting tot op heden 


enzovoort, enzovoort. 


Ik schrijf ‘enzovoort, enzovoort! omdat іп de praktijk de 
records in dergelijke bestanden veel meer velden hebben dan de nu 
opgesomde. Maar de aard van die extra velden is afhankelijk van 
het specifieke gebruik van de bestanden. 

Informatie wordt vastgelegd op magneetband in blokken van 
gegevens. Het vastleggen kan namelijk alleen plaatsvinden wanneer 
de band zich met volle snelheid beweegt. Omdat de band iedere 
keer nadat een blok is gekopieerd moet stoppen, wordt na ieder 
blok een stukje van de band opengelaten voor het tot stilstand en 
weer op volle snelheid komen van de band (zie figuur 5). 


Bewegingsrichting 


Bloktussenruimte 


FIGUUR 5 Blokken en records op magneetband 


Deze tussenruimte is in werkelijkheid ongeveer 1,3 cm lang. 
Als nu het aantal tekens in de blokken gering is (bijvoorbeeld 80) 
dan zal de magneetband een grote hoeveelheid ruimtes tussen de 
blokken en verhoudingsgewijs erg weinig gegevens bevatten. Om 
deze reden en ook om de frequentie van het stoppen te verminderen 
zouden wij de blokken zo groot mogelijk willen maken; de beper- 
kende factor is echter de hoeveelheid reserveruimte in het 
geheugen die nodig is om een blok in te lezen of uit te schrijven. 
Het is mogelijk dat de lengte van een record veel kleiner is dan 
de gewenste bloklengte. Het is dan ook gewoonlijk noodzakelijk 
twee of meer records samen te groeperen om een bruikbare blok- 
lengte te krijgen (zoals bij В1 en R2 in figuur 5). Gelukkig 
bestaan er in COBOL faciliteiten voor het automatisch verwerken 
van records tot blokken. | 

Wanneer we een bestand voor een COBOL programma volledig 
willen specificeren, dan moeten we dat op vier niveaus doen: 
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NIVEAU GESPECIFICEERD WORDT: 


BESTAND - de naam van het bestand en het apparaat waarop 
het is (wordt) vastgelegd 


BLOK - het aantal records in een blok 
RECORD - de velden die een record vormen 
VELD - de tekens die het veld vormen. 


Het eerste record op een magneetband heeft een bijzonder 
karakter: de koplabel. Deze identificeert het bestand. Er bestaat 
ook een staartlabel die het einde van het bestand aanduidt. 

In wezen zijn dezelfde overwegingen van toepassing op 
bestanden op magneetschijven, behalve dan dat de schijven ook 
directe toegankelijkheid tot een benoemd record mogelijk te maken. 
In figuur 5 moet de computer bijvoorbeeld om record 4 in te lezen 
op normale magneetband doorzoeken tot na de records 1, 2 en 3. 
Maar bij magneetschijven kan record 4 direct worden teruggevonden. 
Hoe dit in zijn werk gaat, wordt verklaard in hoofdstuk T. 

Een moderne commerciële bandeenheid kan evenveel tekens 
lezen als in dit gehele boek staan in een tijd die ligt tussen de 10 
seconden en twee minuten, afhankelijk natuurlijk van de snelheid 
waarmee de band beweegt en de tijd die het vergt om te stoppen 
en opnieuw te beginnen in de bloktussenruimtes, evenals van het 
aantal in een blok gekozen tekens. 


Opgaven 

1. Noem vier typen randapparatuur. Classificeer ze als іпуоег-, 
uitvoer- of opslagapparaten. 

Waarvoor dient een koplabel? 

Hoe worden blokken gegevens gescheiden op magneetband? 
Wat beperkt in het algemeen de lengte van een blok? 


сл ны Ç N 
° H e . 


Welke vier niveaus van bestandsbeschrijving worden vereist 
door een COBOL-programma? 


6. Bevat een salarisprogramma de naam van iedere werknemer in 
de organisatie? Zo niet, waar worden dan de namen bewaard? 


A5 DE PROGRAMMASPECIFICATIE 


Voordat een COBOL-programma wordt geschreven, moet een tot in 
onderdelen uitgewerkte specificatie ontworpen worden die precies 
aangeeft wat het programma moet doen. Deze bestaat uit drie 
hoofdonderdelen: 
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1. Invoer: een beschrijving van de bestands- en record- 
structuren van de invoergegevens 


2. Uitvoer: een beschrijving van de bestands- en record- 
structuren van de uitvoergegevens 


3. Verwerking: een beschrijving van de procedures die het 
programma moet uitvoeren om op basis van de invoer de 
uitvoer op te leveren. 


Het verwerkingsgedeelte van de specificatie wordt gewoonlijk 
door de programmeur weergegeven in een stroomschema. Dit is een 
schema dat de logische volgorde van vragen die beantwoord en 
opdrachten die uitgevoerd moeten worden, aangeeft. Bijvoorbeeld: 


LEES EEN 
RECORD 


GEGEVENS 
VAN DIT 
RECORD AF 


FIGUUR 6 Stroomschema: het afdrukken van gegevens die op 
een magneetbandbestand staan 


Dit programma zal de gegevens die op het magneetbandbestand 
staan op de regeldrukker afdrukken. De gebruikte symbolen zijn: 
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Со ср 


Веріп- of Toets- of Verbindings- 
eindesymbool beslissingssymbool symbool 


Handel ingssymbool 
FIGUUR 7 Stroomschema symbolen 


Het stroomschema is een basismethode voor het beschrijven van 
van processen en het wordt dan ook wijd en zijd gebruikt in vele 
industrietakken. Maar heden ten dage wordt wel ingezien, dat het 
werken met stroomschema's een foutengevoelige aanpak is bij grote 
computerprogramma's. Een betere methode wordt in Deel 2 van dit 
boek geïntroduceerd. Intussen dient het gebruik van stroom- 
schema's beperkt te blijven tot eenvoudige gevallen. 


Opgaven 


Noem de drie onderdelen van een programmaspecificatie. 
Hoe kan de logica van een programma worden weergegeven? 


3. Вгеіа het stroomschema van figuur 6 zodanig uit dat tevens 
het aantal records wordt opgeteld en het resultaat afgedrukt. 
Dit resultaat moet pas worden afgedrukt nadat alle records 
zijn ingelezen. 


4, Wat betekenen deze symbolen? 


d 


FIGUUR 8 Opgave A 
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A6 DE COBOL-VERTALER 


COBOL (Common Business Oriented Language) is een computertaal, 
die in 1959 in de Verenigde Staten ontwikkeld werd. Het verant- 
woordelijke lichaam voor de handhaving en verdere ontwikkeling 

van de taal is de Conference on Data Systems Language (CODASYL), 
een vrijwillige organisatie die vertegenwoordigers van gebruikers 

en producenten van computers omvat. Het Amerikaanse Standards 
Institute stelde in 1966 voor een standaardversie van de taal in te 
voeren, gebaseerd op de aanbevelingen van de CODASYL uit 1965. 
Deze standaardversie werd bekrachtigd in 1968 en wordt sindsdien 
genoemd American National Standard COBOL (ANS COBOL) of 

soms COBOL '68. In 1974 werd een sterk uitgebreide en herziene 
versie van de taal aanvaard voor ANS COBOL en deze is nu overal 
beschikbaar. Dit boek is gebaseerd op deze versie, COBOL '74, 
ofschoon ook verwezen wordt naar talrijke voorgestelde uitbreidingen 
en verbeteringen van de taal tot 1982. Deze uitbreidingen zijn niet 
overal beschikbaar. | 

Omdat COBOL dicht bij onze spreektaal staat en niet is beperkt 
tot de faciliteiten van één bepaalde computer, wordt het een hogere 
programmeertaal genoemd (lagere programmeertalen, we spreken 
eigenlijk van assembleertalen, staan dichter bij de taal, de machine- 
code, die intern door de computer wordt gebruikt en zijn meestal 
wel beperkt tot die machine). Hogere programmeertalen worden 
soms probleemgericht genoemd, terwijl assembleertalen machine- 
gericht zijn. 

Gewoonlijk noteert de programmeur de opdrachten van zijn 
programma op coderingsbladen. Daarna wordt het programma 
gewoonlijk overgebracht op een magneetschijfbestand door het in 
te toetsen op een terminal. Het door de programmeur geschreven 
programma wordt het uitgangstaalprogramma genoemd. 

Het uitgangstaalprogramma moet vertaald worden in de door 
de computer intern gebruikte taal. Deze taal wordt de machinecode 
genoemd en het in machinecode vertaalde programma wordt het doel- 
taalprogramma genoemd. Het vertalingsproces zelf wordt uitgevoerd 
door een computerprogramma: 'de COBOL-vertaler' (Eng. : compiler). 

Nadat de computer het uitgangstaalprogramma van de schijf (of 
van ponskaarten) heeft ingelezen, vertaalt de COBOL-vertaler het 
dus іп een doeltaalprogramma іп machinecode. Is dit doeltaal- 
programma daarbij naar het achtergrondgeheugen weggeschreven, 
dan kan het vervolgens in de machine geladen en uitgevoerd 
worden. Het proces kan geïllustreerd worden als in figuur 9, 
bladzijde 14. 
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SCHIJF OF 
PONSKAARTEN 


VERTALER REGELDRUKKER 


Invoer Stambestanden Computergangen Overdrachtsbestanden Uitvoer 
| 
UITGANGS- STAP 1: I AFDRUK UIT- 
T UITGANGSTAAL 
UITVOEREN 
PROGRAMMA VAN COBOL- | PROGRAMMA 
| 


DOELTAAL 
PROGRAMMA 


ACHTERGROND 
GEHEUGEN 
| 
| UITVOER GEPRODUCEERD ÍDOOR 


| DOELTAALPROGRAMMA 
| | 


STAP 2: 

UITVOEREN 
VAN DOELTAAL| 
PROGRAMMA 


INVOER VEREIST DOOR 
DOELTAALPROGRAMMA 
| 


FIGUUR 9 Het vertaalproces 


Opgaven 


1. Wat is een vertaler? 
Hoe heet het programma dat de programmeur schrijft? 


Welke naam wordt gegeven aan het programma nadat het is 
vertaald in machinecode? 


4. Waar is COBOL een afkorting van? 


5. Doe in figuur 10 alsof u de besturingseenheid bent die de 
cyclus voor het ophalen van instructies volgt. Wat is de 
uitvoer, wanneer instructie nr. 7 is volbracht? 
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CYCLUS VOOR OPHALEN INSTRUCTIES 


. Haal de instructies op uit de 
geheugenplaats, aangegeven 
door de programmateller. 

PROGRAMMA- . Tel 1 op bij de programmateller 
TELLER . Gehoorzaam de opgehaalde 


| instructie. 
. Ga naar nummer 1 hierboven. 


GEHEUGENPLAATSEN 
03 


‘Lees volgende 
invoergegeven 
in plaats 11 


01 


Zet plaats 09 
op 0 


Zet plaats 10 
op 0 


Als plaats 10 

Tel 1 op bij kleiner is dan 3, 

plaats 10 zet programma- 
teller op 03 

uit als een 


08! DE UITVOERGEGEVENS 
? 
uitvoergegeven 
INVOER- EEN GELIJKWAARDIG COBOL 


GEGEVENS UI TGANGSTAALPROGRAMMA 


MOVE ZERO TO TOTAAL TELLER 
REPEAT. 


(EE ACCEPT GETAL. 
a ADD GETAL TO TOTAAL. 


Tel plaats 11 
op bij plaats 9 


Schrijf plaats 9 


ADD 1 TO TELLER. ` 


IF TELLER IS LESS THAN 3 
GO TO REPEAT. 

DISPLAY TOTAAL. 

STOP RUN. 


FIGUUR 10 Hoe een computer werkt, in nader detail. Het 
uitgangstaalprogramma, geschreven door de 
programmeur, wordt door de computer vertaald 
in een doeltaalprogramma, in machinecode. Het 
doeltaalprogramma wordt opgeslagen in de 
geheugenplaatsen van de CVE. De besturings- 
eenheid in de CVE heeft een interne logica 
die slechts de cyclus voor het ophalen van 
instructies uitvoert. 
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ANTWOORDEN HOOFDSTUK А 


Paragraaf A1 


Om gegevens en programma's in het computergeheugen in te 
lezen. 


2. Om tussentijdse resultaten op te slaan die later weer ingelezen 
worden. 

3. Fout in de gegevens; fout in het programma. 

4. In het geheugen. 

5. Ja; resultaten die zijn uitgevoerd naar een opslagapparaat 
kunnen later ingevoerd worden. 

Paragraaf A2 

1. 80; 80; 1600. 

2. 59; 3. Merk op dat dit antwoord veronderstelt dat er geen 
spaties tussen de velden zijn. 

3. Het groepsveld 'rekeningnummer'! heeft 6 cijfers. 

Paragraaf A3 

Liege "A $ 

2. Eén (maximaal). 

3. Door tandraderen die grijpen in speciaal daarvoor bestemde 
transportgaten in het papier. 

4. 66 (6 x 11); maar veel regeldrukkers drukken niet op de 
bovenste en onderste regel af, dus dan wordt het 64 regels. 

5. 1/10 seconde. 

Paragraaf A4 

1. Beeldschermterminal (toetsenbord-invoer: scherm-uitvoer). 
Regeldrukker - uitvoer. 

Magneetbandstation, magneetschijfstation - opslag. 

2. Om het bestand te identificeren. 

3. Door een tussenruimte tussen de blokken. 

4. De hoeveelheid reserveruimte (d.w.z. de ruimte die niet door 
het programma of andere gegevens in beslag wordt genomen) 
die beschikbaar is in het geheugen om het blok in.op te 
bouwen vóórdat het uitgeschreven wordt. (Bij computers met 
een groot geheugen kan de beperking van de lengte toch 
noodzakelijk zijn door eigenschappen van de opslagapparatuur.) 

5. Bestand; blok; record; veld. 

6. Neen. De namen van de werknemers (samen met andere 


gegevens, zoals hun maandsalaris en belastingkortingen) 
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worden іп een bestand opgeslagen - waarschijnlijk op magneet- 
band, één record per werknemer. 


Paragraaf A5 


1. Een beschrijving van de invoer, uitvoer en verwerking. 
2. Door een programmastroomschema. 
3. (Aangenomen dat de teller begint bij 0). 


LEES EEN 
RECORD 


EINDE 
BESTAND 
? 

NEE 


DRUK DE 
GEGEVENS 
VAN HET 
RECORD AF 


TEL 1 OP 
BIJ TELLER 


FIGUUR 11 Antwoord op opgave 3 


4. Begin- of eindesymbool; verbindingssymbool; testsymbool; 
handelingssymbool. 


Paragraaf A6 


1. Een computerprogramma dat de in een hogere programmeertaal 
gegeven instructies vertaalt in de machinecode. 
Uitgangstaalprogramma. 

Doeltaalprogramma. 

Common Business Oriented Language. 

954. 
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В HOOFDZAKEN VAN COBOL 


B1 SYNTAXIS VAN COBOL 


COBOL-opdrachten worden geschreven in zinnen. Een opdracht 

is een uitdrukking die begint met een COBOL-werkwoord. Een zin 
wordt beëindigd door een punt en kan één of meer opdrachten 
bevatten. Zo is 


SUBTRACT BELASTING FROM SALARIS. 
een zin met één opdracht, terwijl 


SUBTRACT BELASTING FROM SALARIS 
ADD BIJSLAG TO SALARIS. 


een zin met twee opdrachten is. (In dit voorbeeld zouden 
BELASTING en BIJSLAG de namen kunnen voorstellen van drie 
velden, waarvan de gegevens in het geheugen zijn ingelezen. 
De opdrachten instrueren de computer de inhoud van het veld 
BELASTING af te trekken van de inhoud van het veld SALARIS 
en de inhoud van het veld BIJSLAG op te tellen bij die van het 
veld SALARIS.) 

Zinnen kunnen gegroepeerd worden in paragrafen. Een para- 
graaf bevat één of meer zinnen. (Onder bepaalde omstandigheden 
is het gewenst een paragraaf zonder zinnen te hebben; dit zal in 
een ander hoofdstuk behandeld worden.) 

Paragrafen kunnen op hun beurt gegroepeerd worden in 
sections (secties). Het COBOL-vertaalprogramma verwacht dat 
sommige paragrafen en sections in ieder COBOL-programma 
verschijnen. Het herkent ze aan de specifieke benamingen. De 
programmeur zal vaak besluiten nog andere paragrafen of sections 
in te voeren, waarvoor hij dan zelf namen bedenkt. 

De zinnen, paragrafen en sections worden gegroepeerd in 
divisions. Er zijn slechts vier divisions die alle aanwezig moeten 
zijn in een volledig COBOL-programma. Het zijn: 
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IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 

PROCEDURE DIVISION. 


De divisions staan in bovengenoemde volgorde in een COBOL- 
programma. 

Iedere division heeft een afzonderlijk doel, zoals uit het 
volgende blijkt: 


IDENTIFICATION DIVISION: Bevat de naam van de programmeur, 
naam en doel van het programma en plaats en tijd waarop het werd 
geschreven. Dit zijn grotendeels commentaren die door de compiler 
genegeerd worden, afgezien van de controle op syntactische 
correctheid. 


ENVIRONMENT DIVISION: Beschrijft het soort computer dat de 
uitgangstaal- еп doeltaalprogramma's moet compileren, respectievelijk 
verwerken en andere details van de computerconfiguratie. 


DATA DIVISION: Beschrijft alle gegevens en bestanden, die door 
het programma gebruikt worden. De aard van ieder bestand wordt 
in detail beschreven, evenals de structuur van de erin vervatte 
gegevenselementen. De compiler gebruikt deze informatie om een 
gebied in het geheugen te reserveren voor de blokken met 
gegevens die moeten worden ingelezen of uitgeschreven. Gegevens 
die geen deel uitmaken van een bestand worden beschreven in de 
working-storage section. 


PROCEDURE DIVISION: Hier schrijft de programmeur opdrachten 
die de compiler vertellen welke bewerkingen moeten worden 
uitgevoerd. 


Opgaven 


1. Hoe weet de compiler waar een zin eindigt en een andere begint? 


2. Bekijk de codering van het voorbeeld coderingsformulier in 
figuur 12. (De 77 die in dit programma verschijnt zal later 
toegelicht worden; hij wordt alleen gebruikt in de working- 
storage section en zegt iets over het type van het betreffende 
veld.) Als het programma uitgevoerd wordt, wat zou dan het 
resultaat zijn? 


3. a) Hoeveel geheugenposities denkt u, dat de compiler zal 
reserveren voor de gegevens van het programma in figuur 
12? 
b) Kunt u zeggen hoeveel geheugenposities nodig zijn voor de 
bewerkingen? 


4. U mag de naam van een randapparaat niet in de Data Division 
noemen. In welke division kunt u de compiler de namen van de 
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apparaten dan noemen die gebruikt moeten worden voor het 
lezen en schrijven van bestanden? 


о. Voert de compiler zelf de bewerkingen beschreven in de 
Procedure Division uit? 


B2 CODERINGSREGELS 


COBOL-programma's worden meestal geschreven in hoofdletters op 
coderingsformulieren (zie figuur 12). Alleen de eerste 72 kolommen 
(van dit formulier) mogen gebruikt worden. De terminaltypiste tikt 
de gegevens regel voor regel in, waarbij ze precies het coderings- 
formulier navolgt. De eerste zes kolommen mogen worden gebruikt 
om de regels achtereenvolgens te nummeren, maar wanneer men de 
gegevens op de terminal intikt, wordt die nummering gewoonlijk 
automatisch door de computer verzorgd. Gewoonlijk nummert men 
in eenheden van tien, waardoor later regels ingevoegd kunnen 
worden. De laatste acht kolommen van de regel (vanaf kolom 73) 
worden genegeerd door de compiler afgezien van het afdrukken 
ervan in de uitlijsting van het programma; bij gebruik van pons- 
kaarten gebruikt men deze posities gewoonlijk voor een korte 
programmatitel. 

Sommige woorden in een COBOL-programma hebben een 
bijzondere betekenis voor de compiler. Dit zijn de zogenaamde 
sleutelwoorden of gereserveerde woorden. 'DIVISION', 'DATA!, 
'SUBTRACT', "ТО" zijn gereserveerde woorden die we al zijn 
tegengekomen. Er bestaan meer dan 100 gereserveerde woorden: 
de programmeur mag ze alleen gebruiken binnen de precieze ѕатеп- 
hang van de taalregels in COBOL. 

De programmeur kan ook zelf woorden vormen voor de 
benaming van paragrafen, sections of gegevens. Voorbeelden van 
deze door de programmeur ingevoerde benamingen zijn SALARIS, 
BELASTING, BIJSLAG en DATUM-VAN-VANDAAG. Hoe op nog 
andere wijze van door de programmeur ingevoerde benamingen 
gebruik kan worden gemaakt zal later worden behandeld. 

Er zijn twee marges op het coderingsformulier. Marge A 
begint bij kolom 8 en marge B bij kolom 12. COBOL-zinnen moeten 
altijd rechts van marge B geschreven worden (maar niet buiten 
kolom 72 natuurlijk). Alleen division-, section- en paragraaf- 
benamingen schrijft men vanaf het begin van marge A. In de 
DATA DIVISION wordt deze marge A ook aangehouden voor een 
deel van de beschrijvingen van bestanden en records (zie hoofd- 
stuk E). Paragraafnamen moeten gevolgd worden door een punt. 
Division- en sectionnamen moeten gevolgd worden door een spatie 
en respectievelijk de woorden DIVISION en SECTION en een punt. 
Er is voorgesteld om de twee marges in COBOL weg te doen, zodat 
zinnen, paragrafen enzovoort gewoon maar ergens kunnen worden 
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gecodeerd. Maar zelfs als uw compiler geen marges vereist, bevelen 
we toch aan ze te gebruiken waardoor u een overzichtelijke lay-out 
van uw programma krijgt. (Als u geen gebruik hoeft te maken van 
regelnummers, kunt u natuurlijk de marges laten beginnen bij de 
kolommen 1 en 5.) 

Er moet minimaal één spatie tussen de woorden van een zin 
bestaan. Er is geen beperking naar boven. Een gehele regel kan 
desgewenst opengelaten worden: dit wordt vaak gedaan om de 
presentatie van de programma-uitlijsting te verbeteren. Het is een 
goede (programmeurs)gewoonte slechts één opdracht per regel te 
schrijven, hoewel de COBOL-regels deze beperking niet opleggen. 

De compiler gaat uit van één spatie tussen kolom 72 op de ene 
regel en marge B op de volgende regel, d.w.z. dat u een woord 
eindigend in kolom 72 kunt schrijven en het volgende woord op de 
volgende regel te beginnen bij marge B. U kunt kolom 72 bij 
marge B voegen voor een afgebroken woord door een gedachten- 
streep ('-') te plaatsen іп de vervolgkolom (kolom 7) van de 
volgende regel. De gedachtenstreep staat aan het begin van de 
regel, wanneer een compiler wordt gebruikt die geen marges 
erkent. Er is voorgesteld dit voorschrift te veranderen, zodat de 
gedachtenstreep aan het einde van de regel komt te staan, net zo- 
als in normale Engelse interpunctie; maar dit is nog geen standaard. 
Het gebruik van de vervolgkolom moet bij voorkeur worden 
vermeden. Het is verkieslijk het woord dat moet worden afgebroken 
weg te laten en het op de volgende regel in zijn geheel te noteren. 


Opgaven 


1. Hoe Кап de compiler onderscheiden waar een division, section 
of paragraaf eindigt? 


2. Ное kan de compiler onderscheid maken tussen een paragraaf- 
naam en het eerste (of enige) woord in een zin? 


3. Hoeveel sectionnamen zijn er in het programma van figuur 12? 
Hoeveel paragraafnamen? Hoeveel zinnen in de Procedure 
Division ? 

4, Veronderstel dat u een COBOL-programma schrijft en u spelde 
ENVIRONMENT DIVISION als (a) ENVIRONMENTDIVISION of 
(b) ENVIRONMEN DIVISION. Zou de compiler (a) of (b) of 
beide of geen van beide vormen accepteren? 


5. Studenten voor wie COBOL nieuw is krijgen soms een lijst van 
de gereserveerde woorden in handen en proberen dan een 
programma in het Engels te schrijven, waarbij ze die woorden 
gebruiken op een eigen wijze. Waarom is deze aanpak gedoemd 
te mislukken? 
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B3 VORMING EN INTERPUNCTIE VAN NAMEN 


Door de programmeur in te voeren benamingen voor gegevens 
kunnen gevormd worden uit ieder alfabetisch teken van A t/m Z, 
de cijfers 0 t/m 9 еп de gedachtenstreep ('-'), op voorwaarde dat 
er minimaal één alfabetisch teken in zit en de gedachtenstreep niet 
aan het begin of einde staat. Geoorloofde namen zijn dus ABC-2 en 
1-ХҮ2. Maar het zijn geen goede namen, omdat ze niets betekenen. 
Een goede programmeur zal namen vormen die de gegevens 
beschrijven, bijvoorbeeld: 


LOONLIJSTNUMMER 
ARTIKELNUMMER 
BELAST INGCODE 
BIJSLAG. 


Het gebruik van goede namen maakt het programma langer, 
maar dit is een kleine prijs voor overzichtelijkheid. Namen mogen 
niet meer dan 30 tekens bevatten. 

Dezelfde regels zijn ook van toepassing op door de program- 
meur ingevoerde benamingen voor paragrafen. Alleen mogen 
paragraafnamen in hun geheel numeriek zijn. Het is echter een 
goede gewoonte om dit te vermijden, aangezien paragraafnamen 
eveneens zinvol behoren te zijn. Programmeurs schrijven soms Р1., 
P2., P3., enzovoort, voor de opeenvolgende paragraafnamen. Dit 
systeem helpt zeker bij het lokaliseren van de paragraaf op de 
uitlijsting, maar een goede naam beschrijft ook de bewerkingen in 
de paragraaf, bijvoorbeeld: 


P1-DATUM-ONTVANGST . 
P2-AFDRUKKEN-FAKTUUR-KOP. 
P3-AFDRUKKEN-FAKTUUR-REGEL. 


De punt beëindigt een zin. Hoewel komma's en puntkomma's 
kunnen worden gebruikt om de leesbaarheid van COBOL te 
vergroten, bestaan er tamelijk strikte voorschriften dienaangaande. 
We raden de programmeur aan ze maar beter weg te laten en de 
leesbaarheid d.m.v. het gebruik van extra spaties of nieuwe regels 
te bevorderen. Punten (en eventueel andere interpunctietekens) 
behoren altijd te worden gevolgd door minimaal één spatie. (Er is 
voorgesteld om de strikte voorschriften m.b.t. interpunctie te 
versoepelen.) 


Opgaven 


1. Wat is fout aan de volgende zin? 
ADD INTEREST,ONTVANGST TO KAPITAAL. 
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2. Welke benamingen van gegevens zijn ongeoorloofd”? 
а) T403: D) A сұғы hua a D) 2-2 MD А-1 
h) B-B-B-B-B 1) 2А |) FRED 
К) KONINGINELIZABETHDETWEEDE 1) WORKING STORAGE 


3. Schrijf op een coderingsformulier een paragraaf die het 
volgende zal uitvoeren: tel BIJSLAG op bij SALARIS en trek 
AOW en BELASTING ervan af. Schrijf dit eerst op als drie 
zinnen, vervolgens als één zin. Vorm een paragraafnaam en 
begin met regelnummer 002200. 


4. Is deze zin geoorloofd? 


FIGUUR 13 Opgave 4 


B4 LITERALS EN FIGUURLIJKE CONSTANTEN 


In de Data Division worden bestandsgegevens in de file-section en 
andere gegevens in de working storage-section beschreven. Ze 
worden dikwijls variabelen genoemd, omdat de inhoud van deze 
velden verandert wanneer nieuwe records worden ingelezen of 
wanneer er bewerkingen met die inhoud plaatsvinden. 

Als een programma alle pagina's van een rapport die op de 
regeldrukker worden afgedrukt, zou nummeren, zou het paginanum- 
mer een variabele zijn. Aan het eind van ieder pagina zal het pagina- 
nummer met 1 verhoogd worden. De 1 is dus niet bedoeld als naam 
van een veld (de benaming zou trouwens niet correct zijn), waarvan 
de inhoud kan veranderen, maar geeft een constante weer. We spre- 
ken van een literal (letterlijk op te vatten symbool). 1 is een numerie- 
ke literal. Een numerieke literal kan gevormd worden door iedere 
reeks cijfers, met zo nodig een decimaalteken en voorafgegaan door 
een + of - teken. bijvoorbeeld: 


1.0 

+12 
123.45 
wF 
-7.24612 


Het decimaalteken mag niet het laatste teken zijn. Wanneer 
geen + of - teken wordt geplaatst, wordt een + aangenomen. 
Numerieke literals mogen niet meer dan 18 cijfers bevatten. 


аа СОВИ SR 


Ег zijn оок niet-numerieke literals. Ze worden ingesloten door 
aanhalingstekens, bijvoorbeeld: 


"FRED SMITH" 

"BEGIN KARWEI" 

"VOER DE VERKOOPGEGEVENS IN" 
"VERKOOPRAPPORT'' 


Let op dat een spatie telt als een teken. Een niet-numerieke 
literal mag maximaal 120 tekens lang zijn. 

Het gebeurt vaak dat een niet-numerieke literal meer dan één 
regel van een coderingsformulier beslaat. In zo'n geval wordt de 
literal geschreven t/m kolom 72, een gedachtenstreepje wordt in 
kolom 7 van de volgende regel genoteerd, beginaanhalingstekens 
worden ergens rechts van marge B genoteerd en de rest van de 
literal wordt in de daaropvolgende kolom vervolgd. Slotaanhalings- 
tekens worden genoteerd zoals eerder, bijvoorbeeld: 


FIGUUR 14 Het afbreken van een niet-numerieke literal 


Als een niet-numerieke literal precies in kolom 72 eindigt, 
afgezien van de slotaanhalingstekens, dan wordt het vervolgd zoals 
hierboven is vermeld en de laatste aanhalingstekens komen dan in 
kolom 13 te staan. We zullen later echter nog laten zien dat we het 
voortzetten van een literal over meer dan een regel kunnen 
vermijden door een geschikte indeling van de working storage te 
maken. 

Het onderscheid tussen numerieke en niet-numerieke gegevens 
kan belangrijk zijn in COBOL, aangezien de compiler deze beide 
gegevenssoorten verschillend kan behandelen. 

Naar bepaalde constanten kan verwezen worden d.m.v. het 
gebruik van gereserveerde woorden. Deze staan bekend als figuur- 
lijke constanten, die gebruikt kunnen worden in plaats van literals. 


Figuurlijke constante De compiler vat dit op als één 
of meer 
ZERO, ZEROS, ZEROES nullen 
SPACE,SPACES spaties 
QUOTE, QUOTES aanhalingstekens 


HIGH-VALUE, HIGH-VALUES de hoogst mogelijke waarde 
LOW-VALUE, LOW-VALUES de laagst mogelijke waarde 
(gewoonlijk nul) 
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Of de meervouds- dan wel de enkelvoudsvorm wordt gebruikt 
beïnvloedt niet de door de compiler aangenomen waarden. Wat 
hiervan de oorzaak is, zal duidelijk worden bij de behandeling van 
de MOVE opdracht. 


Opgaven 


1. Welke numerieke literals zijn ongeldig? 
a) 41.0 Ы) -7.7687796 с) 1,123,746 4).7 е) 593.12 
f) 3.14157 


2. Welke niet-numerieke literals zijn ongeldig? 
a) "FRD SMITH" b) "124.6" с) "ADD A ТОВ" 
р) "ZEROES" е) "END OF JOB 


3. Waarom mag het decimaalteken niet het laatste teken zijn in 
een numerieke literal? 


4. Waarom hebben de ontwerpers van de taal de figuurlijke 
constante QUOTE ingevoerd? 


ANTWOORDEN HOOFDSTUK B 


Paragraaf B1 


1. De punt laat zien waar de ene zin eindigt en de andere begint. 

2. DATUM-VAN-VANDAAG is de naam van een veld in het 
geheugen. De gegevens die daar staan zouden worden afgedrukt 
(waarschijnlijk op de bedieningsschrijfmachine van de operator, 
maar dat is bijkomstig). Welke gegevens dat zijn, kunnen we 
niet weten. 


3. a) 6 posities b) Neen. 

4. ENVIRONMENT DIVISION 

о. Neen. De compiler maakt het doeltaalprogramma. Dit doeltaal- 
programma laat de computer de instructies uit de Procedure 
Division uitvoeren. Als u dit niet begrijpt, herlees dan 
paragraaf A6. 

Paragraaf B2 

1. Division - door een nieuwe division of doordat het einde 


Section - door een nieuwe section van een programma 
Paragraaf - door een nieuwe paragraaf’ wordt bereikt. 

2. De paragraafnaam begint bij marge A; zinnen beginnen rechts 
van marge B. (Alternatief antwoord in geval de compiler niet 
met marges werkt: zinnen beginnen altijd met een COBOL- 
werkwoord. 
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3. Twee sections (Configuration, Working-Storage). Vier рага- 
grafen (Program-Id, Source-Computer, Object-Computer, 
Para-1). Twee zinnen. 

4. Geen van beide. 

5. De gereserveerde woorden mogen alleen in de precieze samen- 
hang toegestaan door, en binnen de beperkte betekenis 
geïmpliceerd door de regels van COBOL, gebruikt worden. Hun 
gebruik in het Engels kan daar geheel van verschillen. 

Paragraaf B3 

1. Geen spatie achter de komma. Beter is het de komma weg te 

laten. 

2. а), d), е), f), 1). In de laatste is namelijk een spatie 
opgenomen. 

3. i) 002200 BEREKEN-NETTO-SALARIS. 

002210 ADD BIJSLAG TO SALARIS, 

002220 SUBTRACT AOW FROM SALARIS. 

002230 SUBTRACT BELASTING FROM SALARIS. 
ji) 002210 ADD BIJSLAG ТО SALARIS 

002220 SUBTRACT AOW FROM SALARIS 

002230 SUBTRACT BELASTING FROM SALARIS. 

4. Ja, maar bizar. 

Paragraaf B4 

Ke 0j, eh, 

2. е). 

3. De compiler zou geen onderscheid kunnen maken tussen ееп 
punt die de zin beëindigt en een decimaalteken. 

4, """ zou opgevat kunnen worden als: begin van een niet- 


numerieke literal, einde van een niet-numerieke literal, begin 
van een andere niet-numerieke literal. In feite staat COBOL 
deze constructie toe doordat twee aanliggende aanhalingstekens 
in een niet-numerieke literal opgevat worden als een enkel- 
voudig aanhalingsteken binnen die literal. Voorbeeld: 

"АВ ""Ср" wordt opgevat als een beschrijving van de literal 
AB"CD. 


С DE REKENKUNDIGE 
BEWERKINGEN 


C1 DE PROCEDURE DIVISION - ADD EN SUBTRACT 


Hoewel de Procedure Division als laatste in een COBOL-programma 
wordt gecodeerd, meen ik toch dat het beter is eerst enige 
kenmerken van deze division te behandelen alvorens de andere 
divisions te bekijken. 

We zijn de opdrachten ADD en SUBTRACT al in voorbeelden 
tegengekomen. De opdracht ADD kan twee vormen aannemen: 


1. ADD 


tdentifier tf Tidentifrer=2] "me identifier- [ ROUNDED ] 
— |literal-1 — ЕЕ 


literal-2 


[ON SIZE ERROR imperative-statement] 
2 hen identifier-{ identifier-2 De ver де 
° — [literal-{ literal-2 literal-3 SÉ 


GIVING identifier-m [ROUNDED | [ON SIZE ERROR imperative-statement| 


De onderstreepte woorden in hoofdletters in deze formele 
beschrijving zijn sleutelwoorden. Andere woorden in hoofdletters 
zijn facultatieve woorden die weggelaten kunnen worden zonder 
verandering van betekenis. Rechte haken geven aan dat het woord 
of de zin daarbinnen facultatief is, maar als ze opgenomen zijn 
veranderen ze in het algemeen de betekenis. Wanneer elementen 
boven elkaar gestapeld worden, moet een keuze worden gemaakt 
voor één van de elementen іп de stapel. De ellips ... geeft aan dat 
het voorafgaande door haken of accolades omgeven element herhaald 
kan worden zo vaak als gewenst is. Accolades worden gebruikt om 
een verplicht element of stapel elementen in te sluiten. 'Identifier' 
is de naam van een veld; ‘imperative statement' betekent ееп of 
meer imperatieve opdrachten. 

Deze beschrijvingsmethode wordt algemeen gebruikt in hand- 
boeken over COBOL, dus het is de moeite waard om deze 
beschrijving te begrijpen. In dit boek veroorloof ik me echter 
enige vrijheid in de beschrijvingen om te vermijden dat de zaken 
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te ingewikkeld worden en in de verwachting dat het gezonde 

verstand van de student hem op het rechte pad zal brengen. De 

formele beschrijvingen worden volledig gegeven in Appendix D. 
Geoorloofde ADD-opdrachten zijn bijvoorbeeld: 


ADD A TO B. 

ADD A TO В ROUNDED. 

ADD 12.7 B GIVING С ON SIZE ERROR DISPLAY "ERR100''. 
ADD A B C GIVING D ROUNDED. 

ADD 1272.437 TO B ROUNDED ON SIZE ERROR STOP RUN. 


Merk op dat het woord TO niet opgenomen mag worden 
wanneer GIVING wordt gebruikt. 

Het resultaat van de optelling staat in de operand uiterst 
rechts. De andere operands worden ongewijzigd gelaten. D.w.z.: 


АҺ |2191 elols[2} с[5[>[%{5] 
men ACE CED пип 
ADD 12.7 B GIVING c —e А[1]2[0} в[1[з[з} с[1[%[5}7] 


FIGUUR 15 Het resultaat van een ADD-bewerking 


In figuur 15 is uitgegaan van de veronderstelling dat A en B 
in de Data Division zijn beschreven als velden met drie posities 
voor en geen positie na de decimale punt, terwijl C is beschreven 
met drie posities voor en één positie na de decimale punt. 

Laten we nu eens veronderstellen dat C in figuur 15 in de 
Data Division als een veld zonder decimale plaatsen is beschreven. 
Na het uitvoeren van de laatste opdracht zou C dan slechts 145 
bevatten; van het resultaat zou namelijk het decimale gedeelte (.7) 
worden afgekapt. Afronding van het resultaat zou een accurater 
antwoord opleveren: 146. Dit zou men hebben verkregen als de 
opdracht had geluid: 


ADD 12.7 B GIVING C ROUNDED. 


Het antwoord wordt dan afgerond naar het dichtstbijzijnde gehele 
getal voordat het in C wordt geplaatst. .5 zou naar boven afgerond 
worden. Dezelfde logica wordt toegepast wanneer de operand die 
het antwoord ontvangt onvoldoende decimale posities bevat om het 
gehele resultaat vast te houden. 

Een 'size error! komt voor wanneer het veld waarin het 
resultaat moet komen te staan onvoldoende ruimte heeft voor het 
geheeltallige gedeelte van het antwoord. Stel, dat we er in de 
opdracht 


30 Basisbegrippen 


ADD 1272.437 TO B ROUNDED ON SIZE ERROR STOP RUN. 


vanuit gaan dat B is geschreven met drie posities voor en achter 
de decimale punt en met een beginwaarde уап -272.000. Na het 
uitvoeren van de instructie zou veld B +1000.437 moeten bevatten, 
maar omdat er slechts drie posities beschikbaar zijn voor de 
decimale punt, zal dat cijfer uiterst links afgekapt worden zodat 

B slechts 000.437 bevat. Wanneer ON SIZE ERROR is gespecificeerd, 
zal deze omstandigheid worden ontdekt en de imperatieve opdracht 
(STOP RUN in dit geval) uitgevoerd. 


Opgaven 


2: Ао |ә јо [оо во {т {о [о[5|] с(2 | зјојо 


FIGUUR 16 Opgave 1 - maak de tekening af 


2. Bekijk de indeling van de SUBTRACT-opdracht in Appendix D. 
Welke van de volgende opdrachten zijn geoorloofd? 
1) SUBTRACT A B ii) SUBTRACT A B C FROM D 
iii) SUBTRACT B FROM ZERO GIVING FRED ROUNDED 


з. De operand uiterst rechts іп een ADD- of SUBTRACT -opdracht 
тар geen literal zijn. Waarom? 


4. Schrijf op een coderingsformulier de opdrachten die het 
volgende doen: А :- B+C-D+E-F+G. Alle operands zijn 
beschreven met twee posities voor en twee posities achter 
de decimale punt. 


5. Is deze opdracht geoorloofd? 
ADD A AND B TO C. 


6. Is deze opdracht geoorloofd? 
ADD A TO B GIVING C. 


7. Als we bedenken dat A en B variabelen zijn die elke waarde 
kunnen aannemen in het bereik aangegeven door het aantal 
posities, waarom is de ADD-opdracht van figuur 16 dan 
onbevredigend? 
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C2 MULTIPLY ЕМ DIVIDE 


De eenvoudigste vorm van de vermenigvuldigingsopdracht is: 


identifier-1 


тұлға Менен 


BY identifier-2 


Er bestaan keuzemogelijkheden voor GIVING, ROUNDED en 
SIZE ERROR, evenals bij ADD en SUBTRACT. Steeds wordt het 
resultaat van de vermenigvuldiging geplaatst in de operand uiterst 
rechts, terwijl de andere operands ongewijzigd blijven. 

De opdracht tot deling is soortgelijk: 


identifier-{ 


ienie INTO identifier-2 


DIVIDE | 


Wederom bestaan ег keuzemogelijkheden voor GIVING, 
ROUNDED en SIZE ERROR en staat het resultaat in de meest 
rechtse operand, terwijl de andere ongewijzigd blijven. Enkele 
oude compilers staan de gebruiker toe om te zeggen DIVIDE A BY B, 
waarbij de linker operand het resultaat bevat. Dit gebruik is echter 
geen standaard en is in strijd met de algemene regel m.b.t. de 
rekenkundige bewerkingen, die zegt dat het antwoord in de meest 
rechtse operand komt te staan. DIVIDE A BY B GIVING C gaat 
echter niet in tegen deze regel en is toegestaan in ANS COBOL. 

Bij verreweg de meeste compilers kan men rechtstreeks de 
rest van een deling verkrijgen, bijvoorbeeld DIVIDE 3.1416 INTO 
CIRKEL GIVING DIAMETER ROUNDED REMAINDER REST-1 ON 
SIZE ERROR enzovoort. De rest van de deling komt nu in het veld 
REST-1 te staan (waarbij de rest wordt gedefinieerd als het 
verschil tussen deeltal en het produkt van de onafgeronde 
(mogelijk wel afgekapte) uitkomst en de deler). 


Opgaven 


1. 40|9|115|0|0) во]1]о}о][о] с[о]ә]%[о] 
р[о јојојо 


FIGUUR 16 Opgave 1 
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Welke inhoud hebben А, В, С en D na de volgende opdracht? 
i) MULTIPLY A BY B 

1) MULTIPLY A BY В ROUNDED 

111) DIVIDE B INTO A GIVING С REMAINDER р 

iv) DIVIDE A INTO B GIVING C 

V) DIVIDE A INTO B GIVING С REMAINDER D 


2. Wat is fout aan de volgende opdracht? 
MULTIPLY STRAAL BY 3.1416. 


3. Welk verschil in effect hebben deze twee opdrachten? Of is er 
geen verschil? 


DIVIDE A INTO B GIVING С. 
DIVIDE B BY A GIVING С. 


4, Wat zou er gebeuren indien deze opdrachten worden uitgevoerd? 
i) SUBTRACT A FROM А 
DIVIDE A INTO B GIVING C ON SIZE ERROR STOP RUN. 


ii) SUBTRACT A FROM A 
DIVIDE A INTO B 
ADD 1 TO A 
DISPLAY A. 


5. Uw compiler beschikt niet over de keuzemogelijkheid 
REMAINDER. U wilt toch de rest van de berekening 
GEMIDDELDE = SIGMAI/N weten. Een ander element 5ІСМА2 
is beschreven met hetzelfde aantal posities als SIGMA1 (beide 
zijn gehele getallen). Schrijf opdrachten waardoor de rest van 
de deling in SIGMA2 geplaatst wordt. (We kunnen dit doen 
door voordeel te trekken van het feit dat afkapping zal plaats- 
vinden, wanneer de keuzemogelijkheid ROUNDED wordt 
weggelaten. ) 


C3 COMPUTE 


De COMPUTE-opdracht is op enkele kleine compilers niet beschik- 
baar. Hij neemt deze vorm aan: 


identifier-2 
COMPUTE identifier-1 [ROUNDED] = į literal-1 


arithmetic-expression 


[ON SIZE ERROR imperative-statement | 
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Deze opdracht heeft tot gevolg dat identifier-2 of literal-1 of 
het resultaat van de aritmetische expressie in identifier-1 wordt 
geplaatst. De aritmetische expressie is een combinatie van literals 
en/of identifiers met daartussen geplaatste rekenkundige bewerkings- 
tekens. Deze bewerkingstekens zijn: 


optellen 
aftrekken 

delen 
vermenigvuldigen 
хх machtsverheffen 


+~ + 


Bijvoorbeeld: een geoorloofde opdracht zou zijn: 
COMPUTE ALPHA ROUNDED = BETA - BETA / М x N. 


Voor mensen is deze opdracht dubbelzinnig (moeten we eerst 
aftrekken, of delen? d.w.z. (beta - beta)/n-n is niet hetzelfde als 
beta - (beta/n-n) noch is beta/(n-n) hetzelfde als (beta/n)-n). 
De compiler werkt echter volgens een strikt prioriteitenschema bij 
de uitwerking van een expressie: 


Ten eerste хх 
Ten tweede * en / 
Ten derde + еп - . 


En bij gelijke prioriteit (ж еп /, of + еп -) vindt uitwerking plaats 
van links naar rechts. 

Indien men van deze prioriteiten wil afwijken, kan men door 
haken aangeven dat het binnen de haken geplaatste gedeelte eerst 
uitgewerkt moet worden. Wanneer de uitdrukking ingewikkeld is, 
is het gebruik van haken aan te bevelen, ook al zijn ze niet strikt 
noodzakelijk, omdat men dan minder snel een fout maakt en de 
lezer de opdracht gemakkelijker begrijpt. Aan beide zijden van een 
rekenkundig bewerkingsteken (+, -, enzovoort) moet altijd een 
spatie worden gelaten. 

Er is wellicht een voetangel voor de argeloze gebruiker van 
de compute-opdracht. Deze doet zich voor indien een size error 
in een deelberekening kan voorkomen. Wanneer bijvoorbeeld de 
reeks berekeningen een deling van een zeer groot getal door een 
zeer klein insluit, dan kan een size error optreden, hoewel het 
veld voor het resultaat van de totale berekening groot genoeg is 
om het uiteindelijke antwoord op te nemen. De SIZE ERROR zal 
dan echter toch in werking treden. Als de SIZE ERROR aan elke 
compute-opdracht wordt toegevoegd, loopt men dus niet het risico 
dat een size error optreedt en onontdekt blijft. 
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Opgaven 

1. Is deze opdracht geoorloofd? СОМРОТЕ А = В ROUNDED. 

2. Welk bezwaar hebt u tegen deze opdracht? 

COMPUTE GEMIDDELDE = ( A+ B + C ) / Мж 2. 

3. De oppervlakte van een cirkel is 3.1416r2. Als de velden 
CIRKOPVL en STRAAL zijn gedeclareerd, bereken dan 
CIRKOPVL, eerst zonder Compute, daarna met. 

4, Belastbaar inkomen bestaat uit JAARSAL en BONUS, minus 
pensioen en TOESLAGEN. Pensioen is niet gedeclareerd als een 
veld in de Data Division, maar het is altijd 5% van JAARSAL. 
BELASTING is 40% van belastbaar inkomen. Bereken BELASTING 
met één enkele compute-opdracht. 

5. Veel compilers verzachten de regel m.b.t. spaties аап weers- 
zijden van rekenkundige bewerkingstekens, maar eisen wel een 
spatie aan weerszijden van een minteken wanneer dat wordt 
gebruikt als rekenkundig bewerkingsteken. Waarom? 

ANTWOORDEN HOOFDSTUK C 

Paragraaf C1 

1. С bevat 10.00; А еп B ongewijzigd. 

2. 11), ii). Merk op dat een figuurlijke constante een geoorloofd 
alternatief is voor een literal (zie paragraaf B4). 

3. Omdat het veld dat het antwoord ontvangt rechts geplaatst 
moet worden. 

4, ADD B С Е С GIVING А 

ON SIZE ERROR 
DISPLAY "RESULTAAT TE GROOT" 
STOP RUN. 

SUBTRACT D F FROM A 

ON SIZE ERROR 
DISPLAY "RESULTAAT TE GROOT" 
STOP RUN. 

5. Neen. (Enkele oude compilers staan deze constructie toe, maar 
ANS COBOL beperkt het gebruik van het woord AND tot een 
logische verbinding tussen twee voorwaarden. Dit wordt 
behandeld in hoofdstuk I.) 

6. Neen. | 

7. De som van А en B kan maximaal 199.998 worden. Daarom zou 


men of C met drie posities voor de decimale punt moeten 
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beschrijven of SIZE ERROR moeten toevoegen. Mogelijk is ook 
de afwezigheid van het afrondingsmechanisme onbevredigend. 


Paragraaf C2 

1. 1) В = 15.00; А, С en D ongewijzigd. 
1) Zie 1). 
iii) C = 00.15; A, B еп D ongewijzigd. 
іу) С = 06.66; А, В en D ongewijzigd. 
у) С = 06.66; А еп B ongewijzigd. 


> сә DO 


D = 10.00 - (6.66х1.5) = 0.01. 

Poogt antwoord in een literal op te slaan. 

Geen verschil. 

i) Computer zal stoppen. 

іі) Onbepaald, hangt af van computer. De meeste moderne 
computers stoppen gewoon met het programma zodra ze een 
nuldeling tegenkomen die niet van een SIZE ERROR is 
voorzien. 


DIVIDE N INTO SIGMA1 GIVING GEMIDDELDE ON SIZE ERROR etc. ... 
MULTIPLY GEMIDDELDE BY N GIVING SIGMA2. 
SUBTRACT SIGMA2 FROM SIGMA1 GIVING SIGMA2. 


Willen we GEMIDDELDE toch afgerond hebben, dan verkrijgen 
we dat door de volgende opdracht hieraan toe te voegen: 


ADD 0.5 TO GEMIDDELDE 
ON SIZE ERROR etc. 


Paragraaf C3 


Li 
2. 


Neen, alleen uitkomsten kunnen worden afgerond. 
SIZE ERROR moet worden toegevoegd. Waarschijnlijk moet 
GEMIDDELDE afgerond worden. 


i) MULTIPLY STRAAL BY STRAAL GIVING CIRKOPVL ROUNDED 
ON SIZE ERROR imperative statement. 
MULTIPLY 3.1416 BY CIRKOPVL ROUNDED 
ON SIZE ERROR imperative statement. 


ii) COMPUTE CIRKOPVL ROUNDED = 3.1416 * STRAAL ** 2 
ON SIZE ERROR imperative statement. 


COMPUTE BELASTING ROUNDED = 
(JAARSAL + BONUS - TOESLAGEN - (JAARSAL * 0.05)) * 0.4 
ON SIZE ERROR imperative statement. 


Als deze regel niet gemaakt was, dan kon de compiler geen 
onderscheid maken tussen één enkele identifier met een inge- 
sloten koppelteken en twee identifiers, waarvan de een moet 
worden afgetrokken van de ander. 


D OVERDRACHT VAN BESTURING 


01 GO TO; ENKELVOUDIGE VOORWAARDELIJKE OPDRACHT 


De GO TO-opdracht wordt gevolgd door een paragraafnaam. De 
computer voert normaliter opdrachten uit in de volgorde waarin ze 
worden gecodeerd; wanneer hij een GO TO tegenkomt, vervolgt de 
uitvoering bij de eerste zin van de erbij gespecificeerde paragraaf. 
Wanneer we bijvoorbeeld de besturing willen overbrengen 


naar een paragraaf die we LEES-VOLGENDE-KAART genoemd hebben, 


dan coderen we heel eenvoudig GO TO LEES-VOLGENDE-KAART. 

De GO TO-opdracht wordt dikwijls afhankelijk gemaakt van 
een voorwaarde. Een voorwaarde wordt gespecificeerd door het 
doen beginnen van een zin met het woord IF. De eenvoudigste 
voorwaarde is gelijkstelling, bijvoorbeeld: 


IF RECORD-TYPE = 1 
GO TO ВЕКЕКЕМІМС-1. 
GO TO ВЕКЕКЕМІМС-ОУЕКІСЕ. 


Indien aan de voorwaarde voldaan wordt (d.w.z. 
RECORD-TYPE bevat 1), dan zal de besturing overgebracht 
worden naar de paragraaf die we BEREKENING-1 genoemd hebben. 

Indien niet aan de voorwaarde voldaan wordt, wordt aan de 
opdrachten in de voorwaardelijke zin stilzwijgend voorbijgegaan. 
De uitvoering vervolgt dan bij de volgende zin. In ons voorbeeld 
zal de volgende zin een onvoorwaardelijke opdracht naar 
BEREKENING-OVERIGE veroorzaken. 

We kunnen iedere zin voorwaardelijk maken door aan het 
begin het woord IF en een voorwaarde te plaatsen. De tegenover- 
gestelde voorwaarde wordt verkregen door het woord NOT, 
bijvoorbeeld: 


IF RECORD-TYPE NOT = 1 
GO ТО BEREKENING-OVERIGE. 
GO TO ВЕКЕКЕМІКС-1. 
Een bijzonder geval van de GO TO-opdracht ziet er als volgt uit: 


GO TO PAR-A PAR B DEPENDING ON INVOERGEGEVEN 
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Indien het veld waarnaar verwezen wordt door de identifier 
INVOERGEGEVEN 1 bevat, dan zal de besturing overgaan naar de 
paragraaf die we PAR-A genoemd hebben; indien INVOERGEGEVEN 
2 bevat, gaat de besturing over naar PAR-B. Ieder aantal (laten 
we zeggen, n) paragraafnamen kan zo gespecificeerd worden. Maar 
we moeten er wel zeker van zijn, dat het identificatieveld een 
geheel getal in de reeks 1 tot n bevat; zo niet, dan vindt geen 
overdracht van besturing plaats. Veel kleine compilers bieden niet 
de mogelijkheid van DEPENDING ON. 


Opgaven 


1. Een programmagedeelte ziet er als volgt uit: 


COMPUTE B = 0. 
LUS. 

ADD A TO 

ADD 1 TO 

IF B = 2 

GO TO VERVOLG. 

GO TO LUS. 

VERVOLG. 


De beginwaarde van A was 3. Welke waarde heeft A wanneer 
de besturing de paragraaf VERVOLG bereikt heeft? 


2. Schrijf een opdracht waarbij A door B gedeeld wordt en de 
besturing bij nuldeling wordt overgebracht naar een paragraaf 
NULDELING. 


3. De waarde van ELEMENT kan zijn: 12, 24 of 36. Als de waarde 
12 is, wilt u de verwerking vervolgen bij P12; indien 24, bij 
P24 en indien 36, bij P36. Codeer deze logische gedachtengang 
a) met gebruikmaking van DEPENDING ON еп b) zonder 
gebruikmaking van DEPENDING ON. 


4. Schrijf opdrachten voor de vermenigvuldiging van een element 
VERMENIGVULDIGER met een element VERMENIGVULDIGTAL. 
Het gaat in beide gevallen om positieve, gehele getallen. Het 
antwoord moet komen te staan in een element RESULTAAT. Er 
is maar één probleem: u moet dit doen zonder gebruik te 
maken van MULTIPLY, DIVIDE of COMPUTE. 


A. 
B. 


D2 ALTER 


Deze opdracht wordt uitsluitend behandeld omdat u hem in pro- 
gramma's zoudt kunnen tegenkomen. Het gebruik ervan wordt sterk 
ontraden. Er is voorgesteld om deze opdracht uit een volgende 
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standaard van COBOL te verwijderen. De opdracht ALTER wordt 
gebruikt om de bestemming, zoals die in een GO TO-opdracht is 
gespecificeerd, te wijzigen. Wij hebben bijvoorbeeld een paragraaf: 


FLIP-FLOP. 
GO TO FLIP. 


In een later stadium van het programma kunnen we dan schrijven: 
ALTER FLIP-FLOP TO PROCEED TO FLOP. 


Na het uitvoeren van de ALTER-opdracht zal, bij het terug- 
keren van de besturing naar de paragraaf die we FLIP-FLOP 
genoemd hebben, de GO TO daarin uitgevoerd worden, alsof er 
stond GO TO FLOP. 

Deze opdracht is enigszins overtollig, aangezien er altijd een 
ander middel bestaat om het gewenste resultaat te bereiken. Zoals 
gezegd, wordt het gebruik van deze opdracht sterk ontraden en 
wel omdat het buitengewoon moeilijk wordt de loop van het 
programma te volgen. (Om de waarheid te zeggen: een moderne 
theorie is dat men GO TO om dezelfde reden zou moeten vermijden; 
we komen hierop terug in de hoofdstukken K en L.) We kunnen 
soms een programma een beetje korter of sneller maken door 
ALTER te gebruiken, maar de verwarring die eruit voortvloeit 
weegt zwaar. 


Opgaven 


1. Waarom behoort u de ALTER-opdracht zoveel mogelijk te 
vermijden ? 


2. Prima, maar waarom maakt ALTER het moeilijk de loop van het 
programma te volgen? 


D3 OPVATTINGEN OVER PERFORM 


De PERFORM-opdracht is zondermeer de machtigste van COBOL. 
Een volledig begrip van zowel de opvattingen over als het praktisch 
gebruik van deze opdracht is wezenlijk voor de goede COBOL- 
programmeur. De eenvoudigste vorm van de opdracht is: 

PERFORM ратаргарһ-пате- 1 [ THRU paragraph-name-2] 

Laten we aannemen dat de opdracht 


PERFORM BEREKEN ING-GEMIDDELDE 
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wordt uitgevoerd. De besturing wordt dan overgebracht naar de 
eerste zin van de paragraaf die we BEREKENING-GEMIDDELDE 
genoemd hebben, precies alsof een GO TO BEREKENING- 
GEMIDDELDE wordt uitgevoerd. Maar in tegenstelling tot GO TO 
keert de besturing, wanneer de laatste punt in BEREKENING- 
GEMIDDELDE is bereikt, terug naar de opdracht onmiddellijk na 
de PERFORM-opdracht. 

Nog een voorbeeld: 


PERFORM TOTAALCONTROLE. 
ADD 1 TO CONTROLE-AANTAL. 


Hier zal de paragraaf TOTAALCONTROLE eerst uitgevoerd worden, 
waarna het programma vervolgt met de zin ADD 1 TO CONTROLE- 
AANTAL. 

Het kan voorkomen dat het ons niet uitkomt om de opdrachten 
die we door een perform willen laten uitvoeren in één paragraaf op 
te nemen. In zo'n geval gebruiken we de keuzemogelijkheid THRU 
door de eerste en laatste paragraaf van de reeks paragrafen te 
noemen die we willen laten uitvoeren. Bijvoorbeeld: 


PERFORM TOTAALCONTROLE THRU EINDCONTROLE. 


Hierin worden alle zinnen uitgevoerd vanaf de eerste zin in 
TOTAALCONTROLE tot en met de laatste zin in EINDCONTROLE. 
In ons voorbeeld wordt van PERFORM TOTAALCONTROLE THRU 
EINDCONTROLE wel gezegd dat het in-line gecodeerd is; de 
codering in de paragrafen TOTAALCONTROLE tot en met 
EINDCONTROLE wordt out-of-line genoemd. D.w.z.: de PERFORM- 
opdracht is ег de oorzaak van dat de gespecificeerde out-of-line 
codering wordt uitgevoerd en dat de besturing terugkeert naar de 
volgende in-line opdracht. 

Het meest waardevolle gebruik van de PERFORM-opdracht 
bestaat in het opsplitsen van een groot programma in kleinere 
onderdelen die gemakkelijk zijn te schrijven. Veronderstel dat we 
een programma willen schrijven dat de dag en de maand van het 
jaar inleest (worden door de operator ingevoerd), hieruit het 
aantal verstreken dagen berekent en het resultaat weergeeft. We 
gaan voor het gemak uit van maanden met 28 dagen. We kunnen 
de gehele in-line logica van het programma als volgt coderen: 


PROCEDURE DIVISION. 
P1-IN-LINE-PAR. 
PERFORM DATUM-ONTVANGST. 
PERFORM BEREKEN ING-DAGEN, 
PERFORM RESULTAAT-WEERGAVE. 
STOP RUN. 


(Standaard COBOL vereist dat er een paragraafnaam staat voor de 
eerste zin in de Procedure Division, zelfs als er niet verder naar 
die paragraaf verwezen wordt, vandaar P1-IN-LINE-PAR.) 
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Nu ме де macro-logica van ons programma ontworpen hebben, 
kunnen we onze aandacht richten op de codering van de micro- 
logica van iedere out-of-line paragraaf. We kunnen bijvoorbeeld 
vervolgen met: 


DATUM-ONTVANGST. 
DISPLAY "WELKE MAAND? (VOER 2 CIJFERS ІМ)". 
ACCEPT MAAND. | 
DISPLAY "DANK U, WELKE DAG? (2 CIJFERS)". 
ACCEPT DAG. 
BEREKEN ING-DAGEN. 
SUBTRACT 1 FROM MAAND. 
MULTIPLY MAAND BY 28 GIVING TOT-DAGEN. 
ADD DAG TO TOT-DAGEN. 
RESULTAAT-WEERGAVE. 
DISPLAY "DANK U, HET AANTAL DAGEN IS " TOT-DAGEN. 


Natuurlijk is de volgorde waarin out-of-line paragrafen worden 
gecodeerd niet belangrijk voor de logica, hoewel dat de duidelijk- 
heid bevordert indien zij gecodeerd worden in de rangorde waarin 
ze voor het eerst genoemd worden bij de in-line codering. (In dit 
voorbeeld is ervan uitgegaan dat de operator correct werkt en 
alleen cijfers intoetst. Іп de praktijk mag zoiets niet als vanzelf- 
sprekend aangenomen worden; er moet dan gecontroleerd worden 
of er niet andere tekens ingevoerd worden en deze controles 
betekenen een uitbreiding van het programma.) 


Opgave 


1. Er bestaat een COBOL-regel, dat u binnen een reeks para- 
grafen die worden aangeroepen vanuit een ander programmadeel, 
niet een GO TO moet schrijven die een bestemming buiten die 
reeks heeft, als de daarop volgende besturing niet terugkeert 
naar de laatste paragraaf in die reeks. (Mocht u deze regel 
overtreden, dan zullen de meeste compilers niet aangeven dat 
u een fout gemaakt hebt.) Waarom zou een dergelijke praktijk 
ook ongewenst zijn vanuit het gezichtspunt van iemand die uw 
programma tracht te begrijpen? 


D4 GENESTE PERFORMS 


Veronderstel dat we het voorbeeldprogramma uit paragraaf D3 
willen veranderen, zodat het met kalendermaanden werkt in plaats 
van met maanden van 28 dagen. Het hele programma zal duidelijk 
ingewikkelder worden, als het aantal dagen in overeenstemming 


D Overdracht van besturing 41 


met dergelijke maanden moet worden berekend. We kunnen bij de 
oplossing echter nog steeds ons eerste ongecompliceerde logische 
patroon handhaven, door de opdrachten die we nodig hebben om 
het aantal dagen gelijkwaardig aan kalendermaanden te vinden in 
een aparte paragraaf te beschrijven. Deze paragraaf, die wij 
bijvoorbeeld DAGEN-VOORAFGAAND-AAN-MAAND kunnen noemen, 
kan dan bijvoorbeeld binnen de paragraaf BEREKENING-DAGEN 
worden aangeroepen: 


1 PROCEDURE DIVISION. 

2 P1-IN-LINE-PAR. 

3 PERFORM DATUM-ONTVANGST. 

4 PERFORM BEREKENING-DAGEN. 

5 PERFORM RESULTAAT-WEERGAVE. 

6 STOP RUN. 

7 DATUM-ONTVANGST. 

8 DISPLAY "WELKE MAAND? (2 CIJFERS)". 
9 АССЕРТ MAAND. 

10 DISPLAY "DANK U, WELKE DAG? (2 CIJFERS)". 

11 ACCEPT DAG. 

12 BEREKENING-DAGEN. 

13 PERFORM DAGEN-VOORAFGAAND-AAN-MAAND. 

14 ADD DAG TO TOT-DAGEN. 

15 RESULTAAT-WEERGAVE. 

16 DISPLAY "DANK U, HET AANTAL DAGEN IS " TOT-DAGEN. 
17 DAGEN-VOORAFGAAND-AAN-MAAND. 

18 
19 

20 


IF MAAND = 1 
COMPUTE TOT-DAGEN = 0. 

IF MAAND = 2 
21 COMPUTE TOT-DAGEN = 31. 


(etc., voor de overige maanden) 


Laten we eens inventariseren wat we hebben gedaan. De 
opdracht in regel 4 veroorzaakt dat de besturing wordt over- 
gedragen naar regel 12. En de opdracht in regel 13 naar regel 17. 
Wanneer de laatste paragraaf geheel is uitgevoerd, zal de besturing 
terugkeren naar regel 14; wanneer ook die is uitgevoerd keert de 
besturing terug naar regel 5. 

Wanneer een out-of-line paragraaf zelf een perform-opdracht 
bevat, dan noemen we die perform-opdracht genest. Dit is het 
geval met de perform in regel 13. De paragrafen die door een 
geneste perform worden aangeroepen moeten òf geheel binnen òf 
geheel buiten de reeks paragrafen liggen waarnaar verwezen wordt 
door de in-line perform (in het voorbeeld zijn ze geheel buiten). 
Het nesten mag zo vaak als vereist plaatsvinden, nesten binnen 
nesten inbegrepen. 
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Opgaven 


5% 


Doe alsof u de computer bent die het voorbeeldprogramma іп 
deze paragraaf uitvoert. Lijst de paragraafnamen uit zoals u ze 
tekenkomt (dit wordt 'traceren' van het programma genoemd). 
Zorg voor inspringingen in de uitlijsting, wanneer een geneste 
PERFORM-instructie wordt uitgevoerd. 


2. Schrijf op een coderingsformulier een gewijzigde versie van 
het programma in deze paragraaf, dat de dag, de kalender- 
maand en het jaar krijgt ingevoerd van de operator, het дас-, 
rangnummer berekent en het resultaat weergeeft. Het jaar 
wordt met vier cijfers ingevoerd en bij een schrikkeljaar heeft 
februari 29 dagen. Neem als gegeven aan dat het jaar een 
schrikkeljaar is als het een rest van 0 heeft bij deling door 4. 
(Idee: ga ervan uit dat februari 28 dagen heeft en tel 1 erbij 
als het een schrikkeljaar is en de maand na februari komt. 
Programmeer de logica voor het schrikkeljaar in een aparte 
out-of-line paragraaf.) Schenk tevens aandacht aan de nauw- 
gezetheid van uw codering. 

3. Wat is fout aan de volgende codering? 

PROCEDURE DIVISION. 
PARAGRAAF -1. 
PERFORM PAR-2 THRU PAR-5. 
PAR-2. 
(etc.) 
PAR-3. 
(etc.) 
РАК-4. 
PERFORM PAR-5 THRU РАК-6. 
РАК-5. 
(еёс.) 
РАК-6. 
05 ЕХІТ 


Пе EXIT-opdracht kan gebruikt worden in samenhang met 
PERFORM...THRU..., wanneer het wenselijk is halverwege terug 
te keren van de paragrafen die door de PERFORM-opdracht werden 
aangeroepen, d.w.z. dat dan één of meer paragrafen aan het eind 
van de subroutine niet meer worden uitgevoerd. 


Veronderstel bijvoorbeeld dat een gedeelte van een programma 


er als volgt uitziet: 
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PERFORM P1 THRU P4. 


p1. | 
4 
| 
wé 


Laten we nu eens aannemen, dat zich іп P2 een omstandigheid 
kan voordoen die voorschrijft dat P3 en P4 niet moeten worden 
uitgevoerd. Het probleem is: hoe vermijden we deze paragrafen 
zonder de regel m.b.t. GO TO te breken, die zei dat niet naar een 
bestemming buiten de aangeroepen reeks paragrafen gesprongen 
mag worden. 

Voor dit geval bestaat de EXIT-opdracht. Deze wordt in een 
extra paragraaf aan het eind van de subroutine geplaatst, zodat 
een GO TO naar die paragraaf kan plaatsvinden, indien een vroege 
exit noodzakelijk is. EXIT is de enige opdracht in die paragraaf. 

Ons probleem kan daarom als volgt worden opgelost: 


PERFORM P1 THRU P5 


p1. | 
| 


IF omstandigheid GO TO Р5. 


| 
| 


ЕХІТ. 


Pd, 
РЗ. 
Р4. 


Рӯ, 


Voor deze paragraaf zijn geen opgaven. 


ANTWOORDEN HOOFDSTUK D 


Paragraaf D1 


1. 12 
2. DIVIDE В INTO А ROUNDED ОМ SIZE ERROR СО ТО NUL-DELING. 
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а) DIVIDE 12 INTO ELEMENT. 
GO TO P12 P24 P36 DEPENDING ON ELEMENT. 


b) IF ELEMENT = 12 
GO TO P12. 
IF ELEMENT = 24 
GO TO P24. 
СО ТО Р36. 


(Merk ор dat we ervan uitgaan dat de waarde van ELEMENT 
geen andere kan zijn dan 12, 24 of 36; bij enige twijfel zou 
de laatste opdracht gecodeerd zijn: IF ELEMENT = 

36 GO TO P36. en gevolgd worden door opdrachten om de fout 
te behandelen.) 


(U zou kunnen starten met de opdracht: 
COMPUTE RESULTAAT = ZERO als er enige twijfel bestond of 
de beginwaarde van RESULTAAT nul was.) 


TEL-OP. 
IF VERMENIGVULDIGER NOT = ZERO 
SUBTRACT 1 FROM VERMENIGVULDIGER. 
ADD VERMENIGVULDIGTAL TO RESULTAAT. 
GO TO ТЕГ-ОР. 


Houdt uw antwoord ook rekening met het geval waarbij één van 
de operands nul is? 


Paragraaf D2 


і. 


2. 


Omdat het moeilijkheden oplevert bij het volgen van de loop van 
het programma. 

Wat u ziet geschreven op het coderingsformulier of de uitlijsting 
is niet noodzakelijk dat wat de computer zal doen. 


Paragraaf D3 


e 


Wanneer u een perform-opdracht tegenkomt, verwacht u dat de 
besturing terugkeert naar de volgende in-line opdracht. Dit is 
niet het geval, indien een GO TO is geschreven met een 
bestemming buiten de reeks van de door de perform-opdracht 
aangeroepen paragrafen, tenzij een andere GO TO wordt 
ingevoegd die de besturing weer terugvoert in de reeks. Het 
is echter aan te bevelen nooit een GO TO te gebruiken die de 
besturing buiten de reeks van de door een perform-opdracht 
aangeroepen paragrafen brengt. 
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Paragraaf D4 


4, RI 
DATUM-ONTVANGST 
BEREKEN ING-DAGEN 
РАСЕМ-УООКАЕСААМр-ААМ-МААМр 
RESULTAAT-WEERGAVE 


2. PROCEDURE DIVISION. 
P1-IN-LINE-PAR. 
PERFORM DATUM-ONTVANGST. 
PERFORM BEREKENING-DAGEN.. 
PERFORM RESULTAAT-WEERGAVE. 
STOP RUN. 
DATUM-ONTVANGST. 
DISPLAY "WELKE DAG (VOER 2 CIJFERS ІМ)". 
ACCEPT DAG. 
DISPLAY "WELKE MAAND (2 CIJFERS)". 
ACCEPT MAAND. 
DISPLAY "WELK JAAR? (4 CIJFERS)". 
ACCEPT JAAR. 
BEREKEN ING-DAGEN. 
PERFORM BEPALING-MAANDDAGEN. 
ADD DAG TO TOT-DAGEN. 
RESULTAAT-WEERGAVE. 
DISPLAY "НЕТ DAGRANGNUMMER " TOT-DAGEN. 
BEPALING-MAANDDAGEN. 


IF MAAND = 1 

COMPUTE TOT-DAGEN = 0. 
IF MAAND = 2 

COMPUTE TOT-DAGEN = 31. 
IF MAAND = 3 


COMPUTE TOT-DAGEN = 59 
PERFORM SCHRIKKEL-CONTROLE. 
IF MAAND = 4 
COMPUTE TOT-DAGEN = 90 
PERFORM SCHRIKKEL-CONTROLE. 
etc, 
SCHRIKKEL-CONTROLE. 
DIVIDE 4 INTO JAAR REMAINDER HULPVELD 
IF HULPVELD = ZERO 
ADD 1 TO TOT-DAGEN. 


(Grijp deze gelegenheid aan om uw nauwgezetheid in het 

coderen te toetsen: 

- Begint u de paragraafnamen in kolom 8 (als uw compiler dat 
tenminste vereist)? 

- Codeert u slechts 1 teken per hokje en gebruikt u hoofd- 
letters? 

- Begint u zinnen in of rechts van kolom 12? 
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- Zet u een punt achter iedere paragraafnaam? 

- Zet u een punt aan het einde van iedere paragraaf en aan 
het einde van iedere IF-opdracht? 

- Heeft u rekening gehouden met plaatselijke gewoontes 
(afspraken) voor de letter О en de nul? 

- Plaatst u een spatie aan weerszijden van het - teken, en па 
punten en komma's?) 


3. De geneste perform in PAR-4 wil een reeks paragrafen 
uitvoeren die noch geheel intern noch geheel extern liggen 
t.o.v. de reeks paragrafen die door de PERFORM-opdracht in 
PARAGRAAF-1 worden aangeroepen. 


Veel studenten vinden het achterliggende idee van de PERFORM, 
vooral de geneste PERFORM, moeilijk te begrijpen. Maak u niet 
bezorgd, als dit ook op u van toepassing is; er is tijd genoeg om 
u dit idee eigen te maken. Mogelijkheden voor meer oefening met 
PERFORM worden later geboden; intussen kan deze analogie wel- 
licht het begrip bevorderen. 

Een PERFORM-opdracht lijkt op een rondreis per bus, іп die 
zin dat u altijd eindigt waar u begonnen bent. De paragrafen die 
worden uitgevoerd zijn als de plaatsen waar u stopt tijdens de 
rondrit. 

Veronderstel dat u bij een van deze pleisterplaatsen uw bus 
verlaat en een andere rondreis maakt. Waarna u zich weer in uw 
eerste bus voegt. U bent dan op een 'geneste! rondreis geweest, 
analoog aan een geneste perform. 


B E 
Hoof drondreis Ф „э 
б “7 ' e 
ш P Nk T SCH k еле Бе rondreis 
А и ФЕ 
er / 
Wi / 
Be H5S м 
% ` 
G 


D 


FIGUUR 18 Geneste ronreis per bus 


We kunnen de analogie nog uitbreiden om de regels voor het 
nesten erin te betrekken. De plaatsen die u bezoekt bij uw tweede 
rondreis moeten verschillen van die bij uw bezoek van de eerste 
rondreis (zie figuur 18) of ze moeten een deelverzameling vormen 
van de plaatsen die u bezocht bij de eerste rondreis. Als u tijdens 
uw tweede rondreis nieuwe plaatsen aandoet mag u in die reis geen 
plaatsen van de eerste reis aandoen. 


E DE DATA DIVISION 


Е1 INLEIDING 


FILE SECTION 
Record 
Uitvoer 


WORKING-STORAGE SECTION 


PROCEDURE DIVISION 


Uitvoer 
resultaten 


gegevens 


FIGUUR 19 De inhoud van het geheugen tijdens de 
uitvoering van een programma 


Figuur 19 illustreert de basisprincipes die ten grondslag liggen 
aan een COBOL-programma. Een record uit een invoerbestand kan 
ingelezen worden in een geheugengebied onder besturing van de 
programmaprocedures (voor dit doel bestaat een opdracht READ). 
Een record voor een uitvoerbestand kan alleen weggeschreven 
worden vanuit een uitvoergebied voor records (WRITE bestaat 
voor dit doel). Het is noodzakelijk, zelfs wanneer we hetzelfde 
record uitschrijven als werd ingevoerd, dat record intern in het 
geheugen te verplaatsen, d.w.z. van het invoergebied voor records 
naar het uitvoergebied voor records (hiervoor bestaat MOVE; de 
pijlen in figuur 19 laten zien dat de verplaatsing direct van het 
invoer- naar het uitvoergebied voor records kan plaatsvinden, of 
via working storage (het kladgeheugen)). 
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De Data Division kan worden verdeeld іп vijf sections, die 
ieder een specifiek doel hebben. Maar eenvoudige COBOL- 
programma's hebben slechts twee sections nodig, namelijk de 
FILE SECTION en de WORKING-STORAGE SECTION. 

In de FILE SECTION beschrijven we de bestanden die door 
het programma worden gebruikt. De compiler benut deze informatie 
om geheugengebieden te reserveren voor de invoer- en uitvoer- 
records. Veronderstel bijvoorbeeld dat we een stapel kaarten 
hebben met een getal in de eerste twee kolommen van iedere kaart 
en we willen de som van alle getallen kennen. We beschrijven de 
kaarten als een bestand. Iedere kaart is dan een record in het 
bestand en de eerste twee kolommen zijn het veld of gegevens- 
element waarin we zijn geïnteresseerd. Wanneer we dit kaarten- 
bestand in de FILE SECTION beschrijven, zal de compiler een 
invoergebied voor de records reserveren om de gegevens van de 
kaart, wanneer die wordt ingelezen, op te slaan. 

De som die we willen bijhouden als de kaarten worden 
ingelezen, is wel een gegevenselement maar geen deel van het 
bestand. Zulke gegevenselementen worden beschreven in de 
WORKING-STORAGE SECTION. 

In de Data Division beschrijven we dus de records en velden 
of gegevenselementen die in het programma moeten worden gebruikt 
en geven we een naam aan ieder record en veld. De compiler wendt 
deze informatie aan om de plaats van de gegevens in het geheugen 
in kaart te brengen. Wanneer we vervolgens in de Procedure 
Division naar de namen van gegevens verwijzen, dan kan de 
compiler de twee namen verbinden en onze procedure-opdrachten 
vertalen in machinecode die op de juiste plaatsen zijn uitwerking 
zal hebben. 


Opgaven 


1. Welke gegevensnamen moeten in de Data Division van het 
programma, waarvan u een deel van de Procedure Division in 
figuur 10 aantreft, zijn beschreven? 


2. De compiler geeft u een foutmelding die we een fatale 
diagnostiek noemen, als hij uw programma niet in machinecode 
kan vertalen door een fout van uw kant. Indien u in de 
Procedure Division zou verwijzen naar een gegevenselement, 
maar zou verzuimen het in de Data Division te beschrijven, zou 
de compiler uw programma dan een fatale diagnostiek geven, 
denkt u? 


3. Als u een gegevenselement in de Data Division benoemt, maar 
helemaal niet ernaar verwijst in de Procedure Division, zou de 
compiler dan een fatale diagnostiek geven? 


4. Een programma moet een magneetschijfbestand inlezen en o.a. 
tellen hoeveel records erop staan. 
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a) In welke section zou u de records van de magneetschijf 
beschrijven ? 

b) Welk ander veld zou u nodig hebben en waar zou u het 
beschrijven? 


E2 DE FILE SECTION 


We vertellen de compiler dat we de File Section beginnen door de 
naam van de section onmiddellijk na de naam van de division te 
coderen, dus: 


DATA DIVISION. 
FILE SECTION. 


Ieder bestand dat door het programma wordt gebruikt wordt 
verder in twee niveaus beschreven; een bestandsbeschrijving of 
File Definition (FD niveau) en één of meer recordbeschrijvingen of 
Record Descriptions (01 niveau). 

Bestandsbeschrijvingen kunnen zeer ingewikkeld zijn: voor 
een complete beschrijving zouden we het technische handboek van 
de computerfabrikant moeten raadplegen. De belangrijke kenmerken 
die we nu moeten kennen worden gegeven in deze verkorte vorm: 


FD filename [BLOCK CONTAINS integer RECORDS | 
STANDARD. 
LABEL RECORDS ARE ар 
[VALUE OF IDENTIFICATION IS literal] 


De letters FD, die staan voor File Definition, worden bij 
compilers die met de marges werken gecodeerd in marge A. De 
rest van de beschrijving wordt rechts van marge B genoteerd. De 
bestandsnaam verzinnen we zelf, in overeenstemming met de regels 
voor het vormen van namen (paragraaf B3). De facultatieve 
passage BLOCK CONTAINS ... kan worden gebruikt om het aantal 
records per blok (paragraaf А4) in magneetband- еп schijf- 
bestanden te specificeren. 

Indien LABEL RECORDS ARE STANDARD is gespecificeerd, 
dan moet het bestand over het algemeen (raadpleeg uw handleiding) 
een kop- en staartlabel hebben (paragraaf A4). Wanneer labels 
standaard zijn, dan mag een VALUE OF IDENTIFICATION 
(IDENTIFICATION is geen standaardwoord. Soms gebruikt men 
FILE-ID of alleen maar ID) worden gespecificeerd. Als de passage 
inderdaad is gespecificeerd, dan wordt met de literal bedoeld de 
паат die is vastgelegd ор де koplabel als identifieatiesymbool van 
het bestand. 
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Indien er meer dan één recordsoort іп een bestand is 
opgenomen, krijgt iedere recordsoort zijn eigen gedetailleerde 
recordbeschrijving onder de bestandsbeschrijving waarin de record- 
soort thuishoort. 

Voorbeeld: Een programma leest records uit twee bestanden; 
het ene is een kaartenbestand, het andere een magneetbandbestand. 
Het kaartenbestand heeft geen labelrecords en bevat twee verschil- 
lende recordsoorten; de ene soort zullen we DEBETPOSTEN noemen, 
de andere CREDITPOSTEN. Het magneetbandbestand heeft 
standaardlabels met de identificatie 'STAMBESTAND' die is vast- 
gelegd op de koplabel. De blokkingsfactor (het aantal records in 
een blok) van de records op de magneetband is 3. Dit bestand 
„heeft slechts één recordsoort. 


DATA DIVISION. 
FILE SECTION. 
FD KAARTBESTAND LABEL RECORDS OMITTED 
(hier volgt de recordbeschrijving van DEBETPOSTEN) 
(hier volgt de recordbeschrijving van CREDITPOSTEN) 
FD BANDBESTAND BLOCK CONTAINS 3 RECORDS 
LABEL RECORDS STANDARD 
VALUE OF IDENTIFICATION 'STAMBESTAND''. 
(hier volgt de recordbeschrijving van BAND-REC) 


De LABEL-passage is nu dwingend voorgeschreven in 
standaard COBOL, maar er is voorgesteld om deze facultatief te 
maken. Op de meeste moderne computers kan de identificatie van 
het bestand (evenals van andere kenmerken, zoals blokomvang) 
worden bewerkstelligd ten tijde van de uitvoering van het 
programma d.m.v. commando's naar het bedieningssysteem (deze 
commando's maken geen deel uit van COBOL en zijn niet gestan- 
daardiseerd). Wanneer deze procedure wordt gevolgd, behoeft de 
bestandsbeschrijving alleen FD bestandsnaam te bevatten. 


Opgaven 


1. Een magneetschijfbestand met 'ARTIKELBEST' vastgelegd ор 
een standaard koplabel, heeft records (die we ARTREC noemen) 
in blokken van 100. Noteer de bestandsbeschrijving waarbij u 
het bestand INVOERBESTAND noemt. 


2. Een bestand genaamd AFDRUKBESTAND moet worden uitgevoerd 
op de regeldrukker. De records moeten AFDRUK-REGEL worden 
genoemd. Noteer de bestandsbeschrijving (geen labels). 
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ЕЗ ОЕ RECORDBESCHRIJVING 


Een recordbeschrijving is іп wezen een reeks beschrijvingen met 
de vorm 


level-number data-name | PICTURE IS picture-string] . 


Bij het rangnummer 01, dat altijd wordt gecodeerd in marge 
A, geven we de naam van het gehele record aan. De rangnummers 
02 t/m 49, gecodeerd vanaf marge B, worden gebruikt om de 
velden die het record omvat te beschrijven. Dus rangnummer 02 
duidt een veld binnen een record aan. Een veld met rangnummer 
02 kan worden opgesplitst in subvelden die ieder een rangnummer 
03 hebben, enzovoort. (De nul aan het begin in een rangnummer 
met één cijfer is facultatief, maar de meeste programmeurs 
gebruiken hem wel.) 

De PICTURE-passage wordt gebruikt om het aantal en de soort 
tekens in het veld te beschrijven. Zo betekent PICTURE XXX drie 
tekens van welke soort ook (alfanumeriek); PICTURE 9999 betekent 
vier tekens voor numerieke gegevens; PICTURE A betekent één 
teken voor alfabetische gegevens (PICTURE A wordt zelden 
gebruikt omdat PICTURE X ook alfabetische tekens insluit); 
PICTURE XX99 twee alfanumerieke tekens gevolgd door twee 
numerieke tekens, enzovoort. Om het schrijven van lange reeksen 
tekens voor grote elementen te vermijden kunnen we het aantal 
keren dat een teken herhaald zou moeten worden ook tussen 
haakjes plaatsen. Zo kunnen we bijvoorbeeld in plaats van 
PICTURE XXXXXXXXXX schrijven PICTURE X(10); PICTURE 9(6) 
i.p.v. PICTURE 999999; PICTURE Х(5)9(4) i.p.v. 

PICTURE XXXXX9999. Het woord PICTURE mag worden afgekort 
tot PIC. 

Als een stapel kaarten een getal bevat in de eerste twee 
kolommen en de rest oningevuld blijft, dan kan het kaartrecord 
als volgt worden beschreven: 


01 KAARTGEGEVENS. 
02 GETAL PICTURE 99. 
02 ONGEBRUIKT PICTURE X(78). 


De compiler zou hieruit afleiden dat KAARTGEGEVENS de 
naam van een record is; dat GETAL de naam is van een veld dat 
uit twee numerieke tekens bestaat (de eerste twee van het record) 
en dat ONGEBRUIKT de naam voor de volgende 78 alfanumerieke 
tekens van het record is. Voor zo'n veld dat we niet verder 
gebruiken en waarnaar we dus in de Procedure Division niet verder 
verwijzen, hoeven we zelf echter geen naam te bedenken; we 
kunnen er het gereserveerde woord FILLER voor gebruiken. 

We kunnen nu een compleet voorbeeld van zowel bestands- als 
recordbeschrijving geven: 
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DATA DIVISION. 
FILE SECTION. 
FD KAARTBESTAND LABEL RECORDS OMITTED. 
01 KAARTGEGEVENS. 
02 GETAL PICTURE 99. 
02 FILLER PICTURE X(78). 


Merk op dat de KAARTGEGEVENS zelf geen picture krijgt. 
De compiler zal de lengte van KAARTGEGEVENS berekenen aan de 
hand van de velden die KAARTGEGEVENS bevat; er wordt aan- 
genomen dat het soort gegevens van een groepsveld alfanumeriek 
is (hoe de elementaire velden van het groepsveld dan ook 
beschreven zijn). Voor ieder groepsveld geldt dus: het is even 
lang als de som van de velden die het omvat, is alfanumeriek en 
krijgt geen picture. 


Opgaven 


1. Een bestand (naam: OVERZICHT-BESTAND) moet uitgeschreven 
worden naar de regeldrukker. De drukregels hebben vijf 
velden, namelijk (1) een numeriek rekeningnummer van 6 cijfers; 
(2) een ongebruikt veld van 3 tekens; (3) een alfanumerieke 
naam van 9 tekens; (4) een tweede ongebruikt veld van 3 
tekens en (5) een adres van 26 tekens. Geef de volledige Data 
Division beschrijving van dit bestand. Welke lengte zal de com- 
piler aan het record toekennen? 


2. Geef een volledige recordbeschrijving voor dit recordontwerp: 


Record-naam 


DEBET-RECORD 


REKEN INGNUMMER DATUM FACTUURNR. BEDRAG 


rangnr. 02 


а 

а 

S ыы" 

7; Е e 
rangnr. 03 А = a 

H H E р 

= а (Ез 

© u Ооа 


НЕ 


`х[зээээээ | х bs 


soort gegevens 


FIGUUR 20 Opgave 2 
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3. Maak een diagram (zoals in figuur 20) уап deze record- 
beschrijving: 


01 ARTIKEL-RECORD. 
02 ARTIKELNR. 
03 EIGENSCHAPS-CODE. 
04 MATERIAAL PICTURE X. 
04 VORM PICTURE X. 
03 DIMENSIES. 
04 LENGTE PICTURE 99. 
04 GEWICHT PICTURE 9. 
03 VOLGNR PICTURE 9999. 
02 OMSCHRIJVING PICTURE X(10). 


ANTWOORDEN HOOFSTUK E 
Paragraaf E1 

1. SOM, TELLER, GETAL. 
2 zalk. 

3. Neen 

4, a) In de File Section. 


b) Een veld voor het optellen, in de Working-Storage Section. 


Paragraaf E2 


1. FD INVOERBESTAND BLOCK CONTAINS 100 RECORDS 
LABEL RECORDS STANDARD 
VALUE OF IDENTIFICATION "ARTIKELBEST''. 
(hier volgt de recordbeschrijving van ARTREC) 


2. FD AFDRUKBESTAND LABEL RECORDS OMITTED. 
(hier volgt de recordbeschrijving van AFDRUK-REGEL) 


Heeft u OMITTED correct gespeld? En heeft u een punt aan 
het einde van de bestandsbeschrijving geplaatst en nergens 
anders? 
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Paragraaf ЕЗ 


Ke 


2. 


DATA DIVISION. 
FILE SECTION. 
FD OVERZICHT-BESTAND LABEL RECORDS OMITTED. 


01 REGEL. 
02 REKENINGNUMMER PICTURE 9(6). 
02 FILLER PICTURE XXX. 
02 NAAM PICTURE X(9). 
02 FILLER PICTURE XXX. 
02 ADRES PICTURE X(26). 


De recordlengte is 47 tekens. 


01. DEBET-RECORD. 
02 REKENINGNUMMER. 


03 GEBIEDSCODE PICTURE X. 
03 SERIENR PICTURE 9(7). 
03 CONTROLE-CIJFER PICTURE X. 
02 DATUM. 
03 DAG PICTURE 99. 
03 MAAND PICTURE 99. 
03 JAAR PICTURE 99. 
02 FAKTUURNR PICTURE 9(8). 
02 BEDRAG PICTURE 9(8). 


Het is niet strikt nodig hogere rangnummers (03 enzovoort) te 
laten inspringen, zoals ik hier heb gedaan. Maar het wordt 
gewoonlijk gedaan om de overzichtelijkheid te bevorderen. 


ARTIKEL-RECORD 


ARTIKELNR OMSCHRIJVING 


ЕІСЕМ5СНАР5- 
CODE DIMENSIES | VOLGNR. 


Record-naam 


rangnr. 02 


rangnr. 03 


rangnr. 04 


Ё GEWICHT 


soort gegevens 


FIGUUR 21 Antwoord bij opgave 3 


F VERVOLG DATA DIVISION 


F1 DE WORKING-STORAGE SECTION 


Gegevenselementen die geen deel uitmaken van een bestand worden 
beschreven in de Working-Storage Section, waarbij we gebruik 
kunnen maken van een speciaal rangnummer 77. Indien we bijvoor- 
beeld een totaal bestaande uit 3 cijfers willen bijhouden, kunnen 
we schrijven: 


WORKING-STORAGE SECTION. 
77 TOTAAL PICTURE 999. 


Vanuit het standpunt van de logica van het programma kan 
een element met rangnummer 77 altijd worden vervangen door een 
element met rangnummer 01. Het hierboven genoemde voorbeeld 
kan dus worden geschreven: 


01 TOTAAL PICTURE 999, 


Het gebruik van een Ol-element suggereert wel dat het zal worden 
opgesplitst in verdere ondergeschikte elementen, of dat het zal 
worden ingevoerd of uitgevoerd als een record op een rand- 
apparaat, maar dit is niet noodzakelijk. Het element met rangnummer 
11 kan niet worden onderverdeeld noch gebruikt als een record. 
Sommige computerleveranciers hebben gebruik gemaakt van dit 
verschillende gebruik door ervoor te zorgen dat elementen met 
rangnummer 77 in het geheugen worden opgeslagen op een econo- 
misch meer verantwoorde of efficiëntere wijze dan elementen met 
rangnummer 01. 

Zeer ervaren programmeurs proberen ordening in de working- 
storage te scheppen door alle verwante elementen tesamen te 
groeperen als elementen met rangnummer 02, die dan ondergeschikt 
zijn aan een record naar hun keuze met rangnummer 01. Als deze 
gewoonte wordt opgevolgd, zal het programma geen elementen met 
rangnummer 77 bevatten. Er is voorgesteld om rangnummer 77 in 
standaard COBOL af te schaffen. 
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We mogen nooit zonder meer veronderstellingen maken over de 
beginwaarde van een element in de working storage. Als we willen 
dat het element bij de aanvang nul bevat, dan kunnen we dit 
specificeren met een VALUE-passage, 


02 TOTAAL PICTURE 999 VALUE ZERO. of 
02 TOTAAL PICTURE 999 VALUE 0. 


We kunnen een element op iedere beginwaarde zetten (mits 
natuurlijk het element groot genoeg is voor die waarde). Wanneer 
we bijvoorbeeld van plan zijn de pagina's van een rapport dat door 
de regeldrukker wordt afgedrukt te pagineren, dan zouden we een 
paginateller op een beginwaarde 1 kunnen zetten: 


01 PAGINA-TELLER PICTURE 999 VALUE 1. 


Een niet-numerieke literal kan worden gebruikt om een niet- 
numeriek element een beginwaarde te geven, bijvoorbeeld: 


01 РАСІМА-КОР PICTURE X(46) VALUE "VERKOOP RAPPORT OVER 
“ " DE LAATSTE TWAALF MAANDEN". 


Als de niet-numerieke literal in een VALUE-passage korter is dan 
de lengte van het element wordt deze literal links aangesloten in 
het element en worden de overblijvende posities aan de rechterkant 
met spaties opgevuld. 

De VALUE-passage mag niet worden gebruikt in de File Section. 
Elementen met rangnummer 77 en 01 mogen in iedere volgorde in 
working storage worden gecodeerd. Het is dikwijls zinvol een 
record op te bouwen (d.w.z. met gegevens te vullen) in de 
Working-Storage Section en vervolgens het te verplaatsen naar een 
record in de File Section om uit te schrijven. Dit is vooral zinvol, 
indien een veld in het record constanten bevat, aangezien we een 
element geen beginwaarde in de File Section mogen geven. Veron- 
derstel dat we voor de volgende uitvoerregel een record willen 
beschrijven: 


(vert.-nr.) : (naam) : (verkoop deze maand) : (verk. tot datum) 
De dubbele punten en spaties zijn constant, de andere 


elementen zijn variabel. Het record kan in kaart worden gebracht 
in working storage op de volgende wijze: 


01 REGEL, 
02 VERTEGENW-NR PICTURE 9(4). 
02 FILLER PICTURE X(3) VALUE Y>: ". 
02 NAAM PICTURE X(20). 
02 FILLER PICTURE X(3) VALUE TI p. t. 
02 VERKOOP-DEZE-MAAND PICTURE 9(5). 
02 FILLER PICTURE X(3) VALUE " : ". 


02 VERKOOP-TOT-DATUM PICTURE 9(6). 
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Het gereserveerde woord FILLER wordt hier gebruikt om de 
constanten te benoemen. Het is er alleen om de programmeur de 
moeite te besparen van het bedenken van nieuwe namen waarnaar 
niet afzonderlijk wordt verwezen in de Procedure Division. Het 
woord FILLER kan net zo vaak als nodig is worden gebruikt, maar 
uitsluitend voor elementaire elementen. Aangezien FILLER alleen 
aangeeft dat er niet naar dit element zal worden verwezen heeft 
CODASYL voorgesteld dit woord facultatief te maken: als een 
element geen naam heeft, wordt het dan opgevat als een FILLER. 


Opgaven 


1. Wat is fout aan deze codering? 


FILE SECTION. 
FD KAARTBESTAND LABEL RECORDS OMITTED. 
01 KAART PICTURE X(80) VALUE SPACES. 


2. Beschrijf een Working-Storage Section die u in staat stelt de 
kop 'SALARIS OVERZICHT! uit te schrijven, voorafgegaan door 
tien spaties en gevolgd op de volgende regel door een dubbele 
onderstreping onder de kop (gebruik het = teken), dus 


SALARIS OVERZICHT 


3. De datum moet worden afgedrukt rechts van de woorden 
SALARIS OVERZICHT in vraag 2, na een hiaat van 20 spaties. 
Deze datum neemt de vorm dd/mm/jj aan, waarin dd mm en jj 
dag, maand en jaar (iedere categorie bestaat uit 2 cijfers) 
voorstellen die door opdrachten uit de Procedure Division een 
waarde zullen krijgen. De schuine strepen zijn daarentegen 
constanten die in de kop beschreven moeten worden. Wijzig uw 
antwoord op vraag 2 om hierin te voorzien (de datum wordt 
niet onderstreept). 


F2 PICTURE-PASSAGE — NUMERIEKE VELDEN 


We hebben gezien hoe de picture-passage gebruikt wordt om een- 
voudige numerieke, alfabetische en alfanumerieke elementen te 
beschrijven. We zullen nu onze kennis van numerieke pictures 
aanvullen en een bijzonder geval van alfanumerieke pictures 
bekijken - het opgemaakte veld. 

Numerieke pictures kunnen behalve het teken 9 bovendien de 
tekens 5, V en Р bevatten. 
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5 geeft aan dat het getal een negatieve waarde Кап aannemen: 
het mag een teken hebben. S moet het eerste teken in de picture 
zijn en het voegt niets toe aan de lengte van het veld, tenzij de 
keuzemogelijkheid SIGN LEADING SEPARATE is toegevoegd. 
Bijvoorbeeld: 


02 BELASTING PICTURE S999, 


beschrijft een numeriek veld van 3 cijfers dat positief of negatief 
kan zijn, terwijl 


02 BELASTING PICTURE S999 SIGN LEADING SEPARATE. 


een numeriek veld van 3 cijfers voorafgegaan door een veld van één 
teken dat een + of een - bevat beschrijft. 

У geeft de positie van een decimale punt aan еп het voegt 
ook niets toe aan de lengte van het veld. De compiler neemt aan 
dat de decimale punt op de plaats staat die wordt gespecificeerd 
door de V; een echte decimale punt komt echter niet in de 
gegevens voor. Dus 


02 BELASTING PICTURE S999V99, 


geeft aan een veld, dat ook negatief mag zijn, met 5 cijfers en een 
denkbeeldige decimale punt tussen het derde en vierde teken. Zo 
geeft 


02 KORTING PICTURE У99. 


een veld van 2 cijfers aan met een denkbeeldige decimale punt aan 
het begin. 

P is een schalingsfactor die zelden wordt gebruikt in de 
praktijk. Hij kan worden gebruikt indien de plaats van de denk- 
beeldige komma buiten het veld ligt. Ook P voegt niets toe aan de 
lengte van het veld. Voorbeeld: 


01 MILLISECONDEN PICTURE VPPP999, 


beschrijft een numeriek veld van 3 cijfers dat rekenkundig wordt 
behandeld alsof .000 eraan voorafging. 


01 AANTAL-MILJOENEN PICTURE 999Р(6). 


is een numeriek veld van 3 cijfers dat rekenkundig wordt behandeld 
alsof er 6 nullen op volgden. 

Op de meeste computers is het mogelijk de wijze waarop 
numerieke gegevens binnen de machine worden opgeslagen te Беіп- 
vloeden door een specificatie USAGE COMPUTATIONAL na een 
numerieke picture-passage. Zo zal bijvoorbeeld 03 NUMERIEK-VELD 
PICTURE 9(6)V999 USAGE COMPUTATIONAL bij de meeste machines 
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ervoor zorgen dat NUMERIEK-VELD intern als een binair, іп plaats 
van decimaal, getal wordt opgeslagen. Hierdoor kan een programma, 
vooral als het veel rekenwerk moet doen, sneller werken. Boven- 
dien kan het resulteren in minder geheugenplaatsruimte voor de 
opslag van grote getallen. Het werkelijke aantal tekens dat wordt 
gereserveerd door een picture die is gespecificeerd met USAGE 
COMPUTATIONAL verschilt van computer tot computer. Raadpleeg 
voor meer informatie over USAGE en de verwante passage 
SYNCHRONIZED het handboek van de fabrikant; kennis van deze 
variaties is niet vereist voor deze tekst. 

USAGE COMPUTATIONAL, dat afgekort mag worden als 
COMP, mag niet samen voorkomen met SIGN LEADING SEPARATE. 
Deze passages zijn namelijk strijdig met elkaar aangezien COMP de 
compiler laat weten dat in het betreffende veld uitsluitend getallen, 
eventueel negatief, zonder aparte tekens terecht zullen komen, 
terwijl SIGN LEADING SEPARATE aangeeft om het teken juist apart 
weer te geven. Voor beide passages geldt dat ze op het groeps- 
niveau (level 01) gespecificeerd mogen worden in welk geval alle 
ondergeschikte elementen opgevat worden alsof voor hen USAGE 
COMPUTATIONAL of SIGN LEADING SEPARATE is gespecificeerd. 


Opgaven 


1. 01 BOEKHOUD-RECORD SIGN LEADING SEPARATE. 
02 TOTAAL-DEBITEUREN PICTURE S9(8)V99. 
02 TOTAAL-CREDITEUREN PICTURE S9(8)V99. 
02 AANTAL-DEBITEUREN PICTURE S9(6). 
02 AANTAL-CREDITEUREN PICTURE S9(6). 


Hoe lang is het groepsrecord? 


2. Wat is er fout aan de volgende codering? 
01 FAKTUUR COMP. 


02 BRUTO PICTURE 9(8)V99. 
02 KORTING-PERC PICTURE V99. 
02 KORTING-BEDRAG PICTURE 9(8)V99. 


COMPUTE KORTING-BEDRAG ROUNDED = BRUTO * КОКТІКС-РЕКС х -1. 


3. Wat is er fout aan het volgende? 


01 CONTROLE COMP. 
02 VOORRAAD PICTURE 9(8). 
02 BESTELD PICTURE 9(8). 
02 OPENSTAAND PICTURE 9(8). 
02 LEVERDATUM PICTURE X(6). 
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ЕЗ DE PICTURE PASSAGE – ОРСЕМААКТЕ VELDEN 


Aanvullende tekens voor het opmaken kunnen in een picture-rij 
worden geplaatst, die de gegevens aanpassen aan de wijze waarop 
we ze afgedrukt willen hebben. 

Tussenzetsels (, (komma) B (spatie (B staat voor blank)) 
0 (nul) en / (schuine streep)) kunnen tussengevoegd worden in 
de picture-rij. Voorbeeld: 


01 BEDRAG PICTURE 99,999. 


BEDRAG heeft een komma in de derde tekenpositie. Wanneer we 
nu 01276 zouden verplaatsen naar BEDRAG, dan zou dat 01,276 
bevatten. Merk op dat het tussenzetsel de lengte van het veld 
doet toenemen; BEDRAG is een veld van zes tekens. Bovendien is 
het geen numeriek element. De aanwezigheid van het bijzondere 
teken houdt in dat dit veld niet mag worden gebruikt in een reken- 
kundige bewerking (ofschoon het wel het resultaat kan bevatten 
wanneer de keuzemogelijkheid GIVING wordt gebruikt). Deze regel 
is van toepassing op alle opgemaakte elementen. 

Andere voorbeelden: het overplaatsen van 311255 naar een 
element OPGEMAAKT-GEGEVEN PICTURE 99B99B99 zou het veld 
van acht tekens dat we OPGEMAAKT-GEGEVEN hebben genoemd 
een waarde 31 12 55 geven (het onderstreepje stelt hier een spatie 
voor). De verplaatsing van 1234 naar een element AANTAL- 
DUIZENDEN PICTURE 9,999,000 geeft aan dit veld met 9 tekens 
een waarde van 1,234,000. 

Vier tussenzetsels (+ (plus) - (minus) $ (dollar) en £ (pond)) 
kunnen worden geplaatst aan de linkerzijde van een picture-rij. 
Het dollar teken ($) en het pond teken (£) werken net zo als de 
zojuist beschreven tekens. Het + teken verandert in een - teken 
indien het gegeven dat naar het veld is verplaatst negatief is. 

Het - teken verandert in een spatie als het gegeven positief of nul 
is. Als we dus uitgaan van een element RESULTAAT PICTURE 
-999,999 еп we verplaatsen er een negatieve waarde van 100000 naar 
toe, dan zal dat element -100,000 bevatten. Het verplaatsen van 
een positieve waarde van 100000 zal een resultaat _100,000 
opleveren. Het plus- en minteken kunnen eveneens worden 
geplaatst aan de rechterzijde van een picture-rij met hetzelfde 
effect. 

De twee tekens CR of DB kunnen ook aan de rechterzijde van 
een picture-rij worden geplaatst. Ze hebben tot gevolg dat de 
letters CR respectievelijk DB worden afgedrukt, als de naar het 
element gezonden gegevens negatief zijn; anders worden twee 
spaties afgedrukt. 

Een bijzonder tussenzetsel is de decimale punt (.). Indien de 
picture-rij van een veld een decimale punt insluit, dan zal de 
denkbeeldige decimale punt in de gegevens in overeenstemming 
worden gebracht met de feitelijke punt in het veld. Wanneer 
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gegevens met een waarde 47v45 (vier cijfers) naar een veld 
ANTWOORD PICTURE 99.99 worden verplaatst, zal ANTWOORD 
bestaan uit vijf tekens: 47.45. Zodra het ontvangende veld groter 
is dan het ernaar toegezonden gegevenselement, zullen nullen 
worden geplaatst in de ongebruikte posities, bijvoorbeeld het 
zenden van 47v45 naar LANG-ANTWOORD PICTURE 999.999 levert 
een resultaat 047.450 op. 

Onderdrukkende en drijvende tekens worden aangewend om 
de vooropgaande nullen in de gegevens te vervangen door een 
ander teken. Zodra een significant cijfer wordt tegengekomen in 
de gegevens, gaan alle onderdrukkende en drijvende tekens aan 
het werk alsof ze het teken 9 waren. 

Het eenvoudigste geval is het teken Z, dat voorafgaande 
nullen in de gegevens vervangt door spaties. Als een gegeven 
001008v89 wordt gezonden naar een veld met PICTURE 7277,779,99, 
is het resultaat 1,008.89. Indien een gegeven 0v0 naar hetzelfde 
veld zou worden gezonden, dan is het resultaat 


De asterisk * die vaak als bescherming op cheques wordt 
gebruikt werkt op een soortgelijke wijze. Nu worden de уоогор- 
gaande nullen vervangen door asterisks. Het sturen уап een 
gegeven 0017v45 naar een veld met PICTURE *****,99 levert een 
resultaat жжж17,45 op. 

Als een уап de reeds behandelde tekens + - еп $ wordt 
herhaald, zal het gaan drijven naar de linkerzijde van het eerste 
significante teken in de gegevens. Het zenden van 0012v34 naar 
een veld met PICTURE 5999.99 levert dan een resultaat _$12.34 op. 
Voert men de drijvende symbolen in om nullen te onderdrukken 
dan moet men niet vergeten een extra symbool links van de 
picture-rij te plaatsen om rekening te houden met het geval dat 
het aangevoerde gegeven geen vooropgaande nullen heeft. 

Als u wilt dat een veld alleen spaties bevat wanneer er een 
waarde nul naar wordt toegezonden, kunt u BLANK WHEN ZERO 
specificeren na een picture-passage of u geeft het veld een picture 
met louter Z's. Zelfs als een verder geheel uit Z's bestaand 
element komma's en een decimale punt bevat, zal het spaties 
afdrukken wanneer er een waarde nul naar wordt toegezonden. 
Laten we bijvoorbeeld een ontvangend element PICTURE 7,777.77 
bekijken; als hiernaar een gegeven met een waarde van v50 wordt 
gezonden, zal het _____ ‚50 afdrukken; indien een. gegeven met 
een waarde van v05 wordt toegezonden, drukt het ` „05 af еп 
acht spaties af. 

De opmaak functioneert alleen, wanneer de gegevens intern 
in het geheugen van de computer worden verplaatst, d.w.z. als 
resultaat van bijvoorbeeld een rekenkundige bewerking met een 
GIVING-passage, of als resultaat van een MOVE-instructie (zie 
paragraaf G4). Gegevens die worden ingelezen vanuit een invoer- 
medium naar een veld met een opmaakpicture worden niet opgemaakt. 
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In plaats van het dollarteken kunnen we ook het guldenteken 
($) gebruiken als we in de ENVIRONMENT DIVISION (zie paragraaf 
J2) in de SPECIAL-NAMES paragraaf declareren: CURRENCY SIGN 


IS "ET 


Opgaven 


1. Het gegeven in het veld waarvan de PICTURE in de linker 
kolom staat moet worden verplaatst naar een veld met de 
gegeven picture in de rechter kolom. Schrijf de resulterende 
inhouden van het ontvangende veld op. Gebruik een onder- 
streepje om de aanwezigheid van een spatie aan te duiden. 


(a) 
(b) 
(с) 
(а) 
(е) 
(Ғ) 
(с) 


Picture 
zendende veld 


AAA9 
9(5) 
99У9 

9 
5999У99 
999 

9 


Gegevens 


TSR2 

00176 

231 

0 

12645 (positief) 
100 

2 


Picture 
ontvangende 
veld 


AAAB9 
ZZ,Z29.99 
$$$.99 
$$$.99 
++++9 , 999 
9PP 
$$$$$$9.99 


Resultaat 


2. De volgende gevallen zijn niet uitdrukkelijk behandeld in de 
tekst. Schrijf op wat u denkt dat gaat gebeuren. 


(a) 
(b) 
(с) 
(а) 
(е) 
(Ғ) 


Picture 
zendende veld 


9999У99 
999V999 
99У99 
599У99 
999 

V99 


Gegevens 


123456 

234567 

3456 

3456 (negatief) 
100 

01 


Picture 
ontvangende 
veld 


229.99 
$ZZ9.99 
$ZZ9.99 
-229.99 
9РРР 
VPP9 


Resultaat 


3. Bekijk de picture-rij: PICTURE $,$$$,$$9.99. Kunt u zeggen 
wat hier mis aan is (en op sommige compilers ongeoorloofd is)? 


ҒА PRAKTISCHE OEFENING DEEL 1 


Dit is het eerste deel van een praktische oefening die zal worden 
voltooid wanneer de opdrachten OPEN, CLOSE, READ, WRITE en 
MOVE zijn behandeld in hoofdstuk G. 
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Een bestand heeft standaardlabels met als identificatie het 
woord NUMMERS. Ieder record heeft vier getallen van vier cijfers 
die zijn geplaatst in de eerste 16 posities, waarbij ieder getal één 
decimale plaats heeft. De records bestaan uit 80 posities maar de 
andere posities worden niet gebruikt voor het programma. 

Er moet een programma worden geschreven. dat ieder record 
leest, het gemiddelde van de getallen van het record berekent en 
het resultaat afdrukt samen met de oorspronkelijke getallen. De 
records moeten worden geteld en het recordnummer moet worden 
afgedrukt naast de ingevoerde getallen en het gemiddelde. Een 
kleine complicatie: het vierde getal is altijd negatief ofschoon het 
niet als zodanig op het record is aangebracht, d.w.z. het moet 
worden afgetrokken van de som van de andere getallen, voordat 
het gemiddelde wordt berekend. 

De lay-out van het gedrukte rapport ziet er als volgt uit: 


RECORDNR NO 1 NO 


Het recordnummer (maximaal 999 records) moet worden 
afgedrukt in de posities 3 t/m 5. De vier getallen moeten worden 
afgedrukt in de respectievelijke posities 11 t/m 15, 17 t/m 21, 

23 t/m 27 en 29 t/m 33. Het vierde getal moet steeds worden 
gevolgd door een minteken. Het gemiddelde moet worden afgedrukt 
in de posities 40 t/m 45, gevolgd door een minteken als het nega- 
tief is. Het gemiddelde heeft twee decimale plaatsen. 


Schrijf een complete Data Division voor dit programma. 
De Procedure Division kunt u schrijven wanneer hoofdstuk 
G is behandeld. 

3. Als u voorlopig van uw docent de beschrijving van 
Identification en Environment Division ontvangt kunt u 
dit programma daarna door de computer laten verwerken. 


1; 
2. 


Een globaal programmastroomschema wordt gegeven op blad- 
zijde 64. 

Vergewis u ervan dat de gegevens recht onder de kopjes 
komen te staan en dat de velden zinvol opgemaakt zijn. Om de 
overgang op een nieuwe pagina te testen kunt u bijvoorbeeld 
aannemen dat er 5 regels op een pagina gaan. 
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DRUK DE KOP 
VAN HET 
RAPPORT AF 


FIGUUR 22 Programmastroomschema voor praktische oefening 


ANTWOORDEN HOOFDSTUK F 


Paragraaf F1 


L; De value-passage mag niet worden gebruikt in de File Section. 


2. WORKING-STORAGE SECTION. 
01 KOP. 
02 FILLER PICTURE X(10) VALUE SPACES. 
02 FILLER PICTURE X(17) VALUE "SALARIS OVERZICHT". 
01 ONDERSTREPING. | 
02 FILLER PICTURE X(10) VALUE SPACES. 


02 FILLER PICTURE X(17) VALUE "=================", 
Een kortere oplossing zou zijn: 
ОТ. КОР РІС X127) МАМИ о SALARIS OVERZICHT", 


enzovoort, maar die geeft wel meer aanleiding tot vergissingen 
en is ook minder gemakkelijk te wijzigen. 
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3. МОЕКІМС-5ТОВАСЕ SECTION. 
01 КОР. 
02 FILLER PICTURE Х(10) VALUE SPACES. 
02 FILLER PICTURE X(37) VALUE "SALARIS OVERZICHT". 
02 DAG PICTURE 99. 
02 FILLER PICTURE X VALUE "/". 
02 MAAND PICTURE 99. 
02 FILLER PICTURE X VALUE "/". 
02 JAAR PICTURE 99. 


ONDERSTREPING is als in 2. Veel andere varianten zijn 
mogelijk. Ter illustratie is in dit antwoord gebruik gemaakt 

van de regel dat niet-numerieke literals in een lang veld aan 
de rechterzijde met spaties worden aangevuld om de extra 20 
spaties te verkrijgen. De recht-toe-recht-aan oplossing door 
het aantal spaties expliciet te vermelden is mogelijk professio- 
neler. Een kortere oplossing is mogelijk door de opmaak- 
faciliteiten uit paragraaf F3 te gebruiken om de schuine strepen 
in te voegen, d.w.z. KOP-DATUM PICTURE 99/99/99. 


Paragraaf F2 


1. 36 tekens. 

2. Het resultaat van de compute-opdracht is negatief, maar 
KORTING-PERC heeft geen PICTURE die met S begint. 

3. Een alphanumeriek element (LEVERDATUM) kan niet als 
USAGE COMPUTATIONAL worden gedeclareerd. 


Paragraaf F3 
45. d a ESR 2? 
Cb) 22976.00 
(с) $23.10 
GG)  $.0Q 
(e) _+126.4500 
ег | 
СЕЕ гр $2.00 
Ze (€): 234,56 
(Ы) 9234.56 
(с) $ 34.56 
(а) - 34.56 
(é) 0 
у 0 


3. Пе eerste komma zorgt klaarblijkelijk voor het geval dat де 
waarde 1 miljoen of meer is. Maar gegevens met een dergelijke 
waarde die naar het veld met deze picture worden verplaatst 
hebben als resultaat dat geen enkel $-teken wordt afgedrukt. 
Er zouden tenminste twee $-tekens voor de komma moeten staan. 


С HET WERKEN MET BESTANDEN 
EN HET TRANSPORT 
VAN GEGEVENS IN HET GEHEUGEN 


G1 OPENEN CLOSE 


Voordat we een record uit een bestand kunnen lezen of een record 
naar een bestand kunnen wegschrijven, moet het bestand open 
zijn, voor respectievelijk invoer of uitvoer. De open-opdracht ziet 
er als volgt uit: 


OPEN a file-name-1 [file-name-2] ge) 
— == (OUTPUT file-name-3 [#і1е-пате-4] ... 


Als we dus een programma hebben dat kaarten leest en we ze 
gebruiken om een stambestand op magneetband bij te werken, 
waarbij de mutaties op de regeldrukker worden uitgeschreven, dan 
kunnen we aan het begin van het programma coderen: 


OPEN INPUT KAARTBESTAND STAM-OUD 
OUTPUT STAM-NIEUW AFDRUKBESTAND. 


De hier gebruikte bestandsnamen moeten dezelfde zijn als die 
we hebben gevormd in de FD-opdracht. Het openen heeft bij een 
bestand met standaardlabels tot gevolg dat we de koplabel contro- 
leren (invoer) of uitschrijven (uitvoer). Bij een bestand op 
magneetschijf zal het labelrecord waarschijnlijk niet aan het begin 
van het bestand staan, maar ondergebracht zijn in een speciaal 
gebied met stuurgegevens op de schijf. 

Nadat we alle records van het bestand hebben verwerkt, moet 
het bestand worden gesloten (Engels: closed). Aan het logische 
einde van ons programma kunnen we dan coderen: 


CLOSE STAM-OUD KAARTBESTAND STAM-NIEUW AFDRUKBESTAND. 


Het afsluiten heeft tot gevolg dat bij uitvoerbestanden op 
magneetband staartlabels worden uitgeschreven. Maar de exacte 
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betekenis van CLOSE bij bestanden op andere opslagmedia varieert 
gewoonlijk enigszins per computermerk. Raadpleeg eveneens voor 
de exacte betekenis van de varianten CLOSE...WITH NO REWIND 
en CLOSE...WITH LOCK het handboek van de computerfabrikant. 
Als u een uitvoerbestand niet afsluit WITH LOCK, gaat minimaal 
één computer ervan uit, dat u het in het programma gecreëerde 
bestand slechts tijdelijk nodig heeft: het bestand wordt vernietigd, 
wanneer het programma is afgelopen. 

Soms is het gewenst records toe te voegen aan het einde van 
een al gecreëerd bestand. Bij de meeste computers kunt u dit 
zowel bij bestanden op magneetschijf als bij bestanden op magneet- 
band bereiken door te declareren: OPEN EXTEND bestandsnaam. 


Opgaven 


1. Wanneer u eenmaal een bestand hebt geopend, mag u niet 
opnieuw een open-opdracht verstrekken tenzij het bestand 
eerst wordt gesloten. Waarom niet? 


2, Wat is het verschil tussen het logische en het fysieke einde 
van een programma? 


G2 READ ЕМ WRITE 


De opdracht Read heeft tot gevolg dat het volgende record in het 
gespecificeerde bestand wordt ingelezen naar het geheugen, in het 
gebied dat we in de recordbeschrijving voor dat bestand hebben 
gespecificeerd. 


READ file-name RECORD AT END imperative-statement. 


Als we een bestand bijvoorbeeld MUTATIE hebben genoemd en 
we willen het volgende record krijgen, dan kunnen we coderen 
READ MUTATIE AT END PERFORM AFSLUITEN. De opdracht achter 
AT END zal alleen worden uitgevoerd indien de computer bij het 
lezen van het bestand de staartlabel tegenkomt. Nadat op deze 
wijze het bestandseinde is ontdekt, zal in het voorbeeld de 
paragraaf AFSLUITEN worden uitgevoerd. | 

Wanneer het invoerbestand wordt ingelezen via een apparaat 
zoals een kaartlezer of een beeldscherm en geen staartlabel heeft, 
verwacht het bedieningssysteem gewoonlijk een bijzondere boodschap 
bij de invoer om het bestandseinde te markeren. De aard van deze 
boodschap varieert per computertype; voorbeelden zijn: een kaart 
met de tekens /* in de kolommen 1-2, of een regel op het beeld- 
scherm met de tekens ?END. Wanneer deze gegevens worden tegen- 
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gekomen іп de invoer als resultaat van ееп READ-instructie, wordt 
de AT END-conditie van kracht. 

U kunt een record rechtstreeks inlezen naar een ander record- 
gebied, dat wordt beschreven in Working Storage, door gebruik- 
making van de INTO-mogelijkheid, bijvoorbeeld: 


READ MUTATIE INTO WERK-MUT AT END PERFORM AFSLUITEN. 


Het uitschrijven van een record gaat op dezelfde manier, 
behalve dat we deze keer de recordnaam die we willen uitschrijven, 
moeten specificeren. Bijvoorbeeld: 


WRITE DISC-REC-1 


heeft tot gevolg dat het record іп de File Section beschreven als 
DISC-REC-1 wordt uitgeschreven naar het bestand waartoe het 
behoort. Voor het record dat behoort tot een afdrukbestand, zou 
WRITE REGEL tot gevolg hebben dat het record wordt uitgevoerd 
op de afdrukeenheid. In de meeste gevallen zal de afdrukeenheid 
het papier automatisch een regel opschuiven vóór of na (afhanke- 
lijk van de computer) het uitschrijven van de regel. De meeste 
computers gaan op een nieuwe regel over alvorens hem af te 
drukken, maar er zijn ook computers die helemaal niet automatisch 
bij zo'n opdracht op een nieuwe regel overgaan, hetgeen erin 
resulteert dat bij een WRITE-opdracht de ene regel over de 
andere wordt afgedrukt. 

U kunt een record rechtstreeks uit Working-Storage weg- 
schrijven door het gebruik van de FROM-mogelijkheid, bijvoorbeeld: 


WRITE AFDRUK-REGEL FROM W-KOPREGEL. 


Opgaven 


1. Schrijf de opdracht om het volgende record uit het bestand 
INVOER-BAND te lezen. Het record is op het Ol-niveau 
INVOER-REC genoemd. Indien het staartrecord wordt ontmoet, 
moet u een paragraaf AFSLUITEN genaamd laten uitvoeren en 
de gang stoppen. 


2. U hebt een bestand AFDRUK-BESTAND dat wordt beschreven 
door en bestaat uit de records REGEL-1 en REGEL-2. Schrijf 
de opdrachten die tot gevolg hebben dat een record van het 
type REGEL-1 en een record van het type REGEL-2 worden 
uitgeschreven op achtereenvolgende regels. (Neem aan dat uw 
computer automatisch op een nieuwe regel overgaat.) 


3. Een bestand kan meer dan één recordtype bevatten, d.w.z. 
dat twee of meer recordbeschrijvingen volgen op de bestands- 
beschrijving. Wanneer u dit weet, kunt u dan verklaren 
waarom bij READ de bestandsnaam, maar bij WRITE de record- 
naam moet worden gespecificeerd? 
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G3 HET SCHRIJVEN VAN RECORDS NAAR DE REGELDRUKKER 


Extra faciliteiten worden gegeven voor het besturen van de inter- 
linie bij het uitschrijven van records naar de regeldrukker. Het 
formaat is dan: 


AFTER ] ` identifier LINES 
WRITE record-name a | ADVANCING 4 іпёерег LINES 
Steen ВЕЕОКЕ РАСЕ 


Verschillende computerfabrikanten hebben òf BEFORE òf 
AFTER als standaard aangenomen voor hun machines, hoewel de 
meesten beide mogelijkheden bieden. Ze bieden allemaal de ‘integer 
LINES'-mogelijkheid, waarbij het feitelijke aantal op te schuiven 
regels wordt gespecificeerd, bijvoorbeeld: 


WRITE AFDRUK-REGEL BEFORE ADVANCING 10 LINES 


zal tot gevolg hebben dat een ruimte van 9 regels wordt open- 
gelaten tussen achtereenvolgende regels afgedrukt door deze 
opdracht. 

Wanneer de 'identifier'-mogelijkheid wordt gebruikt, bijvoor- 
beeld: - 


WRITE AFDRUK-REGEL AFTER INTERLINIE 


dan zal het papier het aantal regels opschuiven dat wordt aan- 
gegeven door het integer gegevenselement dat we INTERLINIE 
hebben genoemd. 

De PAGE-mogelijkheid resulteert in de rechtstreekse opdracht 
WRITE AFDRUK-REGEL BEFORE ADVANCING PAGE. 

Het is een normale vereiste bij het programmeren om het 
aantal regels, zoals die worden afgedrukt, te tellen en een 
bepaalde handeling uit te voeren, wanneer de voet van de pagina 
is bereikt. Dit kan automatisch worden bereikt door het gebruik 
van de LINAGE-passage in de FD-opdracht van het bewuste 
bestand, door een specificatie van het aantal regels dat voorafgaat 
aan de voet van de pagina en door het gebruik van de AT END- 
OF-PAGE-passage in de WRITE-opdrachten van het bewuste 
bestand om de gewenste handeling in beweging te zetten. Bijvoor- 
beeld: 


FD AFDRUKBESTAND LABEL RECORDS STANDARD LINAGE 50 LINES. 
01 AFDRUKREC PICTURE Х(132). 


WRITE AFDRUKREC AFTER ADVANCING 2 LINES 
АТ ЕМр-ОЕ-РАСЕ 

PERFORM SCHRIJF-VOET-REGELS 

PERFORM SCHRIJF-PAGINA-KOPREGELS. 
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De instructies na END-OF-PAGE zullen worden uitgevoerd 
(nadat de WRITE-instructie is gedaan), als de regelteller van de 
pagina gelijk is aan of groter dan 50 (aantal regels). Het gebruik 
van WRITE tesamen met het sleutelwoord PAGE (in de paragraaf 
SCHRIJF-PAGINA-KOPREGELS), zal de regelteller weer op nul 
zetten. 


Opgaven 


1. Schrijf de opdracht, die een record FAKTUUR-REGEL afdrukt 
voordat 2 regels wordt opgeschoven, tenzij het element REGEL- 
TELLER de waarde 60 bevat, in welk geval FAKTUUR-REGEL 
afgedrukt moet worden voordat naar de kop van de volgende 
pagina wordt vooruitgegaan. Het programma moet worden 
voortgezet bij de paragraaf met als naam: LEES-VOLGEND- 
RECORD. (Tot deze programmeerstijl worden we nu nog 
gedwongen indien zoals hier de LINAGE-passage niet beschik- 
baar is. Verderop, na invoering van een krachtiger PERFORM- 
opdracht en de invoering van de IF...ELSE-opdracht kunnen 
we deze lelijke GO TO's vermijden.) 


2. Wijzig uw antwoord op vraag 1 zodanig dat een paragraaf 
AFDRUKKEN-FAKTUUR-KOP wordt uitgevoerd indien een 
verschuiving naar de kop van de volgende pagina wordt 
gemaakt. 


G4 MOVE 


De MOVE-opdracht wordt gebruikt om gegevens binnen het 
geheugen te verplaatsen. Beschouw het volgende programma: 


DATA DIVISION. 
FILE SECTION. 
FD DISKBESTAND LABEL RECORDS OMITTED. 
01 DISKREC PICTURE X(80). 
FD AFDRUKBESTAND LABEL RECORDS OMITTED. 
01 REGEL PICTURE X(120). 
PROCEDURE DIVISION. 
P1-OPENEN. 
OPEN INPUT DISKBESTAND OUTPUT AFDRUKBESTAND. 
P2-LEES-EEN-RECORD. 
READ DISKBESTAND AT END GO TO P3-AFSLUITEN. 
MOVE DISKREC TO REGEL. 
WRITE REGEL BEFORE ADVANCING 2 LINES. 
GO TO P2-LEES-EEN-RECORD. 
P3-AFSLUITEN 
CLOSE DISKBESTAND AFDRUKBESTAND. 
STOP RUN. 
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Dit programma zal eenvoudig de records van de disk in een niet 
opgemaakte vorm uitlijsten op de regeldrukker. De MOVE-opdracht 
wordt gebruikt om de gegevens in het invoerrecordgebied te 
verplaatsen naar het uitvoerrecordgebied. 

Als het wenselijk is de uitvoer op te maken, is het nood- 
zakelijk ieder veld in de invoer en de uitvoer te beschrijven, 
bijvoorbeeld: 


01 DISKREC. 
02 EERSTE-BEDRAG PICTURE 9(4)V99. 
02 TWEEDE-BEDRAG PICTURE 9(4)V99. 


02 FILLER PICTURE X(68). 
en 
01 REGEL. 
02 BEDRAG-1 PICTURE ZZZ9.99. 
02 FILLER PICTURE XX. 
02 BEDRAG-2 PICTURE ZZZ9.99. 
02 FILLER PICTURE Х(104). 


De Procedure Division kan dan worden gewijzigd om te vermelden: 


Р1-ОРЕМЕМ. 
OPEN INPUT DISKBESTAND OUTPUT AFDRUKBESTAND. 
MOVE SPACES TO REGEL. 
P2-LEES-EEN-RECORD. 
READ DISKBESTAND AT END GO TO P3-AFSLUITEN. 
MOVE EERSTE-BEDRAG ТО ВЕрКАС-1. 
MOVE TWEEDE-BEDRAG TO BEDRAG-2. 
WRITE REGEL BEFORE ADVANCING 2 LINES. 
GO TO P2-LEES-EEN-RECORD. 


De eerste move vult de gehele REGEL met spaties (denk 
eraan dat we in de File Section geen begin VALUE kunnen geven). 
De tweede en derde move brengen de individuele velden over en 
zorgen ervoor dat deze worden opgemaakt in het uitvoerrecord. 

De volgende regels zijn van toepassing op gewone moves: 


1. Alfanumeriek element naar alfanumeriek element. 

De gegevens in het veld van verzending worden van links naar 
rechts naar het ontvangende veld overgebracht. Indien het ont- 
vangende veld te groot is, wordt het aan de rechterkant opgevuld 
met spaties. Een groepsveld (bijvoorbeeld een record) telt als een 
alfanumeriek veld. 


2. Numeriek element naar numeriek element. 

De gegevens links van de denkbeeldige decimale punt in het veld 
van verzending worden ook links van en aansluitend aan de denk- 
beeldige decimale punt naar het ontvangende veld overgebracht. 
Voor de komma worden de gegevens van rechts naar links en 
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achter de komma van links naar rechts overgebracht. Indien het 
ontvangende veld te groot is, worden kop- of staartnullen inge- 
voegd al naar wordt vereist. 


3. Numeriek element naar numeriek opgemaakt element. 

Bij het overbrengen komt de denkbeeldige decimale punt in het veld 
van verzending overeen met de feitelijke decimale punt in het ont- 
vangende veld en de regels voor het opmaken worden opgevolgd. 


Het is ook geoorloofd, hoewel zelden de behoefte daaraan bestaat, 
om een integer numeriek element over te brengen naar een alfa- 
numeriek element. In dit geval worden de gegevens in het veld 
van verzending van links naar rechts naar het ontvangende veld 
overgebracht; indien het ontvangende veld te groot is, wordt het 
aan de rechterkant opgevuld met spaties. Evenzo kan een alfa- 
numeriek element naar een numeriek element worden overgebracht. 
Het alfanumerieke element wordt verondersteld een geheel getal te 
bevatten, waarna de regels voor numeriek /numeriek moves worden 
opgevolgd. Het is de verantwoordelijkheid van de programmeur 
ervoor te zorgen dat het veld van verzending een geheel getal 
bevat. 

Als het ontvangende veld te klein is, bij welk soort move dan 
ook, zal het resultaat worden afgekapt. 


Opgaven 
1. 02 ALPHA-1 PICTURE X VALUE "1". 
02 ALPHA-2 PICTURE X(4). 
Wat is de inhoud van ALPHA-2 na: MOVE ALPHA-1 TO 
ALPHA -2? 
2. 02 NUM-1 PICTURE 9V9 VALUE 2.3. 
02 NUM-2 PICTURE 99V99 VALUE 0. 
Wat is de inhoud van NUM-2 na: MOVE NUM-1 ТО NUM-2? 
3. 02 NUM-1 PICTURE 99 VALUE 23. 
02 ALPHA-2 PICTURE X(4). 
Wat bevat ALPHA-2 na: MOVE NUM-1 TO ALPHA-2? 


G5 MOVE BIJ LITERALS 


Het veld van verzending in een move-opdracht kan een literal 
zijn; in een dergelijk geval worden de normale regels voor move 
toegepast. Een numerieke literal wordt als een numeriek veld van 
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verzending gerekend en een niet-numerieke literal als een alfa- 
numeriek veld van verzending. 

Wanneer het veld van verzending een figuratieve constante 
is, wordt het gehele ontvangende veld opgevuld met de gespeci- 
ficeerde constante. Er is geen verschil of de enkelvoudige of 
meervoudige versie van de figuratieve constante wordt gebruikt. 

D.w.z. MOVE SPACE TO REGEL is synoniem met MOVE 
SPACES TO REGEL. REGEL zal helemaal worden opgevuld met 
spaties. 

Een gelijksoortig resultaat kunnen we bereiken door literal 
met ALL te specificeren. Veronderstel dat we een element AVELD 
PICTURE X(10) hebben. Na MOVE "ж" TO AVELD zal AVELD een 
asterisk gevolgd door negen spaties bevatten. Maar na MOVE ALL 
"ж" TO AVELD zal AVELD geheel gevuld zijn met asterisken. Het 
sleutelwoord ALL kan ook worden gebruikt in een VALUE-passage, 
bijvoorbeeld: 


02 AVELD PICTURE X(10) VALUE ALL "Ж", 


heeft hetzelfde resultaat, dus AVELD geheel gevuld met asterisken. 

Indien het veld van verzending in een MOVE ALL langer is 
dan één teken, wordt de reeks tekens herhaald totdat het ont- 
vangende veld is gevuld. Na MOVE ALL "ABC" TO AVELD bevat 
AVELD ABCABCABCA. 


Opgave 


1. MOVE ALL HIGH-VALUES TO AVELD zou een geoorloofde 
opdracht in COBOL zijn, maar de opdracht bevat een overmaat 
aan woorden. Waarom? 


G6 PRAKTISCHE OEFENING DEEL 2 


U bent nu in staat de praktische oefening uit paragraaf F3 te 
voltooien. 

Maak testgegevens om uw programma te testen zodra de 
compilering succesvol is verlopen. Sluit een record met allemaal 
nullen in, een record met allemaal negens, een record waarop het 
eerste getal 0001 is en de andere getallen allemaal nul, en een 
record waarop de eerste drie getallen nul zijn en de vierde een A, 

Voor het testen van de routine m.b.t, de overloopbladen kunt 
u, i.p.v. een echte grote teststapel te construeren, het aantal 
regels op 5 per blad houden. 
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Paragraaf G1 


1. De koplabel is al ingelezen en gecontroleerd of uitgeschreven. 
2. Fysieke einde = laatste gecodeerde opdracht. 
Logische einde = laatste uitgevoerde opdracht. 


Paragraaf G2 


1. READ INVOER-BAND AT END PERFORM AFSLUITEN STOP RUN. 


2. WRITE REGEL-1. 
WRITE REGEL-2. 


3. Een bestand kan verschillende soorten records bevatten. Een 
READ-opdracht heeft tot gevolg, dat het volgende record, van 
welk type dan ook, op het bestand wordt ingevoerd in het 
geheugen. Wanneer de READ-opdracht wordt uitgevoerd, is het 
type van dit volgende record op het bestand niet bekend, 
zodat het onmogelijk is dit door een recordnaam te specificeren. 
Daarom staat bij READ de bestandsnaam. 

Omgekeerd: wanneer een WRITE-opdracht wordt uitgevoerd, 
moet aan de machine worden verteld welke van de verschillende 
recordtypes die tot een bestand kunnen behoren moet worden 
uitgeschreven. Dus bij WRITE staat de recordnaam. 


Paragraaf G3 


1. IF REGELTELLER = 60 
WRITE FAKTUUR-REGEL BEFORE PAGE 
GO TO LEES-VOLGEND-RECORD. 
WRITE FAKTUUR-REGEL BEFORE 2. 
GO TO LEES-VOLGEND-RECORD. 


2. IF REGELTELLER = 60 
WRITE FAKTUUR-REGEL BEFORE PAGE 
PERFORM AFDRUKKEN-FAKTUUR-KOP 
GO ТО LEES-VOLGEND-RECORD. 
WRITE FAKTUUR-REGEL BEFORE 2, 
СО TO LEES-VOLGEND-RECORD. 


Paragraaf G4 
Ke en 
40230) 


3. 23 
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Paragraaf G5 


1. De ALL is overmatig. MOVE HIGH-VALUES TO AVELD zou 
hetzelfde resultaat hebben. Figuratieve constanten impliceren 
MOVE ALL. 


Н KWALIFICATIE, 
HERBESCHRIJVING; INDICES 


H1 KWALIFICATIE 


De namen die we bedenken voor de records in ons programma 
moeten verschillend zijn. Maar het is geoorloofd dezelfde naam te 
gebruiken voor velden in verschillende records, bijvoorbeeld: 


01 DISK-IN. 
02 BEDRAG-1 PICTURE 9(4)V99. 
02 BEDRAG-2 PICTURE 9(4)V99. 
02 FILLER PICTURE X(68). 

01 DRUK-AF. 
02 BEDRAG-1 PICTURE ZZZ9.99. 
02 PILLER PICTURE XX. 
02 BEDRAG-2 PICTURE 7779.99. 
02 FILLER PICTURE XX. 
02 TOTAAL PICTURE Z(4)9.99. 


Een opdracht іп de Procedure Division zoals MOVE BEDRAG-1 
ТО BEDRAG-1 is echter dubbelzinnig en daarom is het in dit geval 
noodzakelijk verwijzingen naar deze velden te kwalificeren in de 
Procedure Division, bijvoorbeeld: 


MOVE BEDRAG-1 ОЕ DISK-IN ТО BEDRAG-1 OF DRUK-AF. 
MOVE BEDRAG-2 ІМ DISK-IN TO BEDRAG-2 ІМ DRUK-AF. 
ADD BEDRAG-1 OF DISK-IN BEDRAG-2 IN DISK-IN GIVING TOTAAL. 


Door middel van de sleutelwoorden IN en OF, die synoniemen 
zijn, wordt een gegevensnaam uniek gemaakt door de naam van het 
groepsveld waartoe het veld behoort. Indien ook deze kwalificatie nog 
niet voldoende is, wordt het proces van kwalificatie, het toevoegen 
van naasthogere groepsvelden, voortgezet totdat de naam uniek is, 

Aangezien het gebruik van duplicaatnamen zo kan uitmonden in 
veel langere opdrachten om de gegevens te verwerken, geven veel 
programmeurs er de voorkeur aan ze te vermijden. 

In de COBOL-standaard van 1974 bestaat een CORRESPONDING- 
variant van MOVE, ADD en SUBTRACT waardoor kortere instructies 
mogelijk worden. We zouden bijvoorbeeld in het voorbeeld hierboven 
in plaats van de eerste twee MOVEs geschreven kunnen hebben: 
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MOVE CORRESPONDING DISK-IN TO DRUK-AF. 


De compiler zou dan ieder veld in DISK-IN onderzoeken om 
te zien of er een veld is met dezelfde naam in DRUK-AF; zo ja, 
dan zou dat veld worden verplaatst. De te verplaatsen velden 
moeten dezelfde rangnummers hebben en dezelfde groepsvelden 
(indien aanwezig). Fillers worden genegeerd. 

Hoewel het op het eerste gezicht lijkt alsof CORRESPONDING 
veel coderingswerk kan besparen, is in de praktijk dit effect niet 
vaak aanwezig. De extra hoeveelheid werk t.b.v. de kwalificatie 
overtreft gewoonlijk de besparingen als gevolg van het gebruik 
van CORRESPONDING. Bovendien bestaat er veel minder behoefte 
aan het gebruik van duplicaatnamen, wanneer de mogelijkheden 
van de Report Writer (zie hoofdstuk S) beschikbaar zijn en 
wanneer bestanden ter plaatse worden bijgewerkt i.p.v. ze te 
kopiëren ор een ander medium (Hoofdstuk Т). Er is nu voorgesteld 
de CORRESPONDING-mogelijkheid te laten vervallen. 


H2 HERBESCHRIJVING 


Een bestand bevat records met de volgende indeling: 


tekens 1-6 rekeningnummer 
1-25 naam 
26-85 adres 
86-165 verschepingsadres 
166-169 bestelde hoeveelheid 
170-171 valutacode (01 = Engelse £ sterling 
02 = US $ enzovoort) 
172-178 bedrag (3 decimale posities bij £, 2 bij $, 
geen bij lire enzovoort) 


De recordindelingen zijn identiek uitgezonderd het aantal 
decimale posities in het veld bedrag dat varieert al naar gelang 
de valutacode. Een oplossing voor dit probleem zou kunnen bestaan 
in de beschrijving van drie verschillende records voor het bestand, 
maar deze oplossing is afkeurenswaardig met het oog op de bijna 
identieke indeling. Een betere oplossing is de beschrijving van het 
veld bedrag op drie verschillende manieren, d.w.z.: 


01 FAKTUUR-REC. 


02 REK-NR PICTURE Х9(5). 
02 NAAM PICTURE Х(19). 
02 ADRES PICTURE X(60). 


02 VERSCH-ADRES PICTURE X(80). 
02 HOEVEELHEID PICTURE 9(4). 
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02 VALUTA PICTURE 99. 

02 BEDR-STERL PICTURE 9(4)V999. 

02 BEDR-DOLL REDEFINES BEDR-STERL PICTURE 9(5)V99. 
02 BEDR-LIRE REDEFINES BEDR-STERL PICTURE 9(7). 


Indien we in de Procedure Division verwijzen naar BEDR- 
STERL, zal van dit veld worden aangenomen dat het drie decimale 
posities bezit; bij BEDR-DOLL twee decimale posities en bij 
BEDR-LIRE geen decimale plaatsen. Redefines worden dus gebruikt 
om een alternatieve naam en beschrijving te hechten aan een 
gegeven veld. Het herbeschrijvende element moet dezelfde veld- 
lengte bezitten als het herbeschreven element. 

Groepsvelden kunnen eveneens worden herbeschreven. Laten 
we bijvoorbeeld veronderstellen dat voor buitenlandse klanten 
REK-NR hierboven een landcode van twee cijfers bevat, een krediet- 
code van één cijfer en een serienummer van drie cijfers, terwijl 
binnenlandse klanten een serienummer hebben van vijf cijfers dat 
volgt op een speciaal voorvoegsel "I". We kunnen deze variaties 
beschrijven: 


02 REK-NR-BUITENLAND. 


03 LAND PICTURE 99, 
03 KRED-CODE PICTURE 9. 
03 SER-E PICTURE 999. 


02 REK-NR-BINNENLAND REDEFINES REK-NR-BUITENLAND. 
03 VOORVOEGSEL PICTURE A. 
03 SER-I PICTURE 9(5). 


Merk op dat de twee groepen dezelfde lengte hebben (zes 
tekens). Het zijn twee manieren om dezelfde zes tekens in het 
geheugen te beschrijven. Redefines mogen niet worden gebruikt 
ор Ol-niveau іп de File Section (ze zijn hier eigenlijk ook over- 
bodig aangezien van tot hetzelfde bestand behorende records wordt 
aangenomen dat ze elkaar herbeschrijven in het invoer- of uitvoer- 
recordgebied). 


Opgaven 


1. Indien u redefines gebruikt іп de Working-Storage Section en 
u hebt de value-passage gebruikt voor het element dat is 
herbeschreven, dan mag u niet de value-passage gebruiken 
voor het element dat herbeschrijft. Waarom niet? 


2. Een zescijferig datumveld op een beeldschermregel moet worden 
beschreven op 02-niveau. De subvelden binnen de datum kunnen 
òf Engels (DDMMJJ) òf Amerikaans (MMDDJJ) òf Juliaans 
(JJDDD) zijn. Indien de datum het Juliaanse formaat heeft, 
wordt het zesde cijfer niet gebruikt. Schrijf dat deel van de 
Data Division dat het datumveld en zijn subvelden beschrijft. 
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H3 OCCURS n TIMES 


Deze passage Кап worden benut om een serie aanliggende velden 
die dezelfde picture bezitten te beschrijven. Veronderstel dat een 
record twaalf getallen van vier cijfers bevat, ieder met twee 
decimale posities. Dit kan worden beschreven: 


01 VERSCHULDIGDE-BETALINGEN . 
02 BEDRAG OCCURS 12 TIMES PICTURE 99У99. 


Dit bespaart ons de moeite ieder veld te benoemen. Bij 
verwijzing naar een specifiek veld moeten we een index tussen 
haken achter de паат van het veld plaatsen. BEDRAG(I) bijvoor- 
beeld verwijst naar het eerste veld in het record; BEDRAG(2) 
naar het tweede, enzovoort. 

De occurs kan ook op een groepsveld worden toegepast, 
bijvoorbeeld: 


01 VERSCHULDIGDE-BETALINGEN. 
02 BETALINGSGROEP OCCURS 12 TIMES, 
03 MAAND PICTURE 99. 
03 BEDRAG PICTURE 99У99. 


Dit is een beschrijving van 12 groepsvelden die ieder een 
tweecijferige maand en een viercijferig bedrag bevatten. We kunnen 
de eerste groep bereiken door BETALINGSGROEP(1); het eerste 
veld іп de eerste groep door MAAND(1), enzovoort. 

We hoeven geen constante als index te nemen. Het kan ook 
een variabele zijn met een geheeltallige waarde in de juiste reeks 
(d.w.z. in de reeks 1 t/m 12 in het voorbeeld). Dit levert ons 
een krachtig mechanisme op. Veronderstel dat we in het voorbeeld 
hierboven alle bedragen willen totaliseren. We zouden dan kunnen 
schrijven ADD BEDRAG(1) BEDRAG(2) BEDRAG(3) enzovoort, 
maar dit zou bijzonder langdradig worden. Door de beschrijving 
van twee elementen in working storage: 


02 SUB PICTURE 99 COMP. 
02 TOTAAL PICTURE 9(4)V99 COMP VALUE 0. 


kunnen we alle bedragen optellen met de volgende opdrachten in 
de Procedure Division: 


MOVE 1 TO SUB. 
SOM-BEDR. 
ADD BEDRAG(SUB) TO TOTAAL ON SIZE ERROR (neem nodige 
maatregelen). 
ADD 1 TO SUB. 
IF SUB LESS THAN 13 
GO TO SOM-BEDR. 
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Over het algemeen is het uit efficiency overwegingen aan te 
bevelen om gegevenselementen die als indices gebruikt worden met 
de juiste USAGE te beschrijven. Op de meeste computers is dit 
COMP of COMP SYNC RIGHT. 

Het is niet geoorloofd een value-passage te gebruiken bij een 
element of groep die in een OCCURS voorkomt. Indien we toch 
een value willen invoegen, dan kan dit worden bereikt door her- 


beschrijving, bijvoorbeeld: 


01 


TABEL. 


02 TABEL-INHOUD. 


FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


Wan: 
"ppp š 
"МЕТ" Ë 
"АРВ". 
"МЕТ" z 
Залы. 
BTU 
ZE А 
"сер!" š 
"OR 
"Nyoy" ° 
"ВЕС" > 


02 TABEL-2 REDEFINES TABEL-INHOUD. 


03 ALFA-MAAND OCCURS 12 TIMES PICTURE XXX. 


АТЕА-МААМр (1) bevat daardoor de tekens JAN, ALFA- 
MAAND(2) de tekens FEB, enzovoort. Ik heb al deze fillers 
gebruikt terwille van de duidelijkheid. Omdat we hier te maken 
hebben met niet-numerieke waarden kan precies hetzelfde 
resultaat worden bereikt door: 

01 TABEL VALUE '"JANFEBMRTAPRMEIJUNJULAUGSEPOKTNOVDEC''. 
02 ALFA-MAAND OCCURS 12 TIMES PICTURES ХХХ. 


Er is enige reden om de eenvoudige, maar lange methode 
professioneler te noemen, aangezien het programma gemakkelijker 
kan worden gewijzigd; maar misschien is dat niet zo belangrijk bij 
een zeer vaste verzameling gegevens zoals de namen van de 
maanden. Als de tabelinhoud aanpassingen zou vereisen, verdient 
het de voorkeur de tabelgegevens in een bestand vast te leggen 
en deze gegevens in de tabel in te lezen bij de start van het 
programma. 

Wanneer een waarde is gedeclareerd voor een groepselement, 
mag er geen enkele tegenstrijdige declaratie (d.w.z. een andere 
waarde) bestaan voor welk ondergeschikt element van de groep 
dan ook. | 

OCCURS mag niet worden gebruikt ор het Ol-niveau. 


H Kwalificatie, herbeschrijving, indices 81 


Opgave 


1. De File Section van een programma bevat een invoerrecord in 
BLDSCHBESTAND en een uitvoerrecord in AFDRUKBESTAND 


als volgt: 
01 BEELDSCHERM-IN. 
02 DATUM-IN. 


03 DAG-IN PICTURE 99. 

03 MAAND-IN PICTURE 99. 

03 JAAR-IN PICTURE 99. 
01 REGEL-UIT. 


02 FILLER PICTURE X(100). 
02 DAG-UIT PICTURE Z9BB. 
02 MAAND-UIT PICTURE ХХХВВ. 
02 JAAR-UIT PICTURE 99. 


Schrijf de Working-Storage Section en de Procedure Division 
voor het inlezen van één regel en het afdrukken van de datum 
op de regeldrukker. MAAND-UIT moet een uit drie tekens 
bestaand equivalent van MAAND-IN zijn en kan worden 
gevonden door MAAND-IN als de index van een element in een 
tabel te gebruiken. 


ANTWOORDEN HOOFDSTUK H 


Paragraaf H2 


1. U zou dan de compiler vragen om twee verschillende values in 
hetzelfde geheugengebied te plaatsen, hetgeen onmogelijk is. 


2. 02 E-DATUM. 

03 E-DAG PICTURE 99. 
03 E-MAAND PICTURE 99. 
03 E-JAAR PICTURE 99. 

02 A-DATUM REDEFINES E-DATUM. 
03 A-MAAND PICTURE 99. 
03 A-DAG PICTURE 99. 
03 A-JAAR PICTURE 99. 

02 J-DATUM REDEFINES E-DATUM. 
03 J-JAAR PICTURE 99. 
03 J-DAG PICTURE 999. 
03 FILLER PICTURE 9. 
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L 


Paragraaf H3 


1. WORKING-STORAGE SECTION. 
01 TABEL VALUE "JANFEBMRTAPRMEIJUNJULAUGSEPOKTNOVDEC''. 
02 ALFA-MAAND OCCURS 12 TIMES PICTURE XXX. 
01 INLEZEN PICTURE X(4) VALUE "GOED". 
PROCEDURE DIVISION. 
P-HOOFDPROGRAMMA. 
PERFORM P1-OPENEN. 
PERFORM P2-LEZEN. 
IF INLEZEN = "GOED" 
PERFORM P3-AFDRUKKEN. 
PERFORM P4-AFSLUITEN. 
STOP RUN. 
Р1-ОРЕМЕМ. 
OPEN INPUT BLDSCHBESTAND OUTPUT AFDRUKBESTAND. 
P2-LEZEN. 
READ BLDSCHBESTAND AT END PERFORM P21-FOUTMELDING. 
P21-FOUTMELDING. | 
DISPLAY "СЕЕМ RECORDS ІМ BLDSCHBESTAND-JOB MISLUKT". 
MOVE "FOUT' TO INLEZEN. 
P3-AFDRUKKEN . 
MOVE SPACES TO REGEL-UIT. 
MOVE DAG-IN TO DAG-UIT. 
MOVE ALFA-MAAND(MAAND-IN) TO MAAND-UIT. 
MOVE JAAR-IN TO JAAR-UIT. 
WRITE REGEL-UIT. 
P4-AFSLUITEN. 
CLOSE BLDSCHBESTAND AFDRUKBESTAND. 


| PROCEDURE DIVISION 
(VERVOLG) 


11 VOORWAARDELIJKE UITDRUKKINGEN 


Deze hebben het formaat: 
simple-condition statement-1 ү 
bende ml Бы: tn (ELSE звасевепс-21 


We hebben ай al in gebruik gezien waar de enkelvoudige 
voorwaarde (simple-condition) bestaat uit de gelijkheid van twee 
elementen (D1), bijvoorbeeld: 


IF RECORD-CODE = 1 
PERFORM ВЕКЕКЕМІКС-1. 


De ELSE-variant stelt ons in staat een opdracht te schrijven 
die alleen wordt uitgevoerd als aan de voorwaarde niet wordt 
voldaan, bijvoorbeeld: 


IF RECORD-CODE = 1 
PERFORM BEREKEN ING-{ 
ELSE 
PERFORM BEREKENING-OVERIGE. 


Andere enkelvoudige voorwaarden die kunnen worden 
gespecificeerd staan hieronder samengevat: 


GREATER THAN 
LESS THAN | 


| IS [NOT] {EQUAL TO 


керк 
literal-1 


ГА 
literal-2 


A V I 


Waar beide met elkaar vergeleken velden numerieke elementen 
zijn, wordt een algebraïsche vergelijking gemaakt (d.w.z. positieve 
getallen zijn groter dan 0 en negatieve getallen zijn kleiner dan 0, 
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еп ook is bijvoorbeeld -7 groter dan -8). In andere gevallen 
worden de velden per teken van links naar rechts met elkaar 
vergeleken, waarbij het kortste veld wordt behandeld alsof het 
spaties heeft aan de rechterkant. Hoewel alle computerfabrikanten 
2 als groter dan А en 9 groter dan 0 behandelen, treden variaties 
in de praktijk op wanneer een letter wordt vergeleken met een 
getal of wanneer bijzondere tekens in de vergelijking betrokken 
zijn. 

In ASCII (American Standard Code for Information Inter- 
change, die tevens de ISO 7-bit code en de British Standard Data 
Code is) zijn cijfers kleiner dan hoofdletters, die op hun beurt 
weer kleiner zijn dan onderkast (= kleine) letters. In EBCDIC 
(Extended Binary Coded Decimal Interchange Characters), zijn 
cijfers groter dan hoofdletters, die op hun beurt groter zijn dan 
onderkast letters. De wiskundige symbolen > en < kunnen worden 
gebruikt in plaats van GREATER THAN en LESS THAN. 

Velden kunnen ook naar type worden getoetst: 


POSITIVE 

NEGATIVE 
identifier IS [NOT] | ZERO 

МОМЕК ІС 

ALPHABETIC 


De picture van het element behoort overeen te komen met de 
gemaakte toets; in het bijzonder mag een NUMERIC test niet 
worden uitgevoerd op een element met een alfabetische picture, 
noch een ALPHABETIC test op een element met een numerieke 
picture. 


Opgave 


1. Een rekeningnummer heeft zes tekens. Het eerste is altijd de 
letter А, het volgende teken kan iedere vorm aannemen en 
de laatste vier tekens behoren een getal in de reeks 0001 t/m 
5000 te zijn. Beschrijf dit veld in de Data Division en schrijf 
de opdrachten van de Procedure Division die controleren of 
de gegevens in dat veld overeenstemmen met deze regels. Als 
het gegeven niet correct is moet de procedure FOUTMELDING 
worden uitge -эега. 


12 SAMENGESTELDE VOORWAARDEN 


Enkelvoudige voorwaarden kunnen door de woorden AND en OR 
worden samengevoegd om een samengestelde voorwaarde te maken. 
We kunnen bijvoorbeeld coderen: 
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IF EERSTE-TEKEN = "А" AND LAATSTE-VIER GREATER THAN 0 
NEXT SENTENCE 
ELSE PERFORM FOUTMELDING, 


Aan beide enkelvoudige voorwaarden moet zijn voldaan wil het 
programma met de volgende zin doorgaan; FOUTMELDING zal dus 
al worden uitgevoerd wanneer slechts één van beide condities 
onwaar is. Als OR wordt gebruikt, zal de voorwaardelijke opdracht 
worden uitgevoerd indien aan één van beide voorwaarden wordt 
voldaan; de logica van het voorafgaande voorbeeld kan dus ook 
worden uitgedrukt door: 


IF EERSTE-TEKEN NOT = "А" OR LAATSTE-VIER LESS THAN 1 
PERFORM FOUTMELDING. 


Wanneer AND en OR allebei worden gebruikt in een samen- 
gestelde voorwaarde, dan is het resultaat een zin die in alledaags 
taalgebruik dubbelzinnig zou zijn. Hoewel COBOL dit oplost door 
eerst alle AND's op hun waarde te beoordelen, wordt de student 
toch aangeraden altijd zijn bedoeling te verduidelijken door het 
gebruik van haakjes, bijvoorbeeld: 


IF EERSTE-TEKEN NOT = "А" OR 
(LAATSTE-VIER NOT GREATER THAN ZERO AND 
LAATSTE-VIER NOT LESS THAN 5001) 
PERFORM FOUTMELDING. 


Wanneer haakjes worden gebruikt wordt altijd eerst nagegaan 
of aan de uitdrukking tussen de haakjes is voldaan. Als we nauw- 
keurig de uitdrukking tussen haakjes in het vorige voorbeeld 
bekijken, dan zien we dat hier sprake is van een fout (altijd 
onwaar). NOT GREATER THAN is namelijk hetzelfde als 'kleiner 
dan of gelijk aan en МОТ LESS THAN is hetzelfde als ‘groter dan 
of gelijk aan'. Het is heel gemakkelijk zowel voor een beginnende 
als een ervaren programmeur samengestelde voorwaarden te laten 
uitdijen tot kromme en kronkelige denkoefeningen. Het is bijna 
altijd mogelijk een samengestelde voorwaarde te vereenvoudigen 
door NOT's te elimineren en/of de voorwaarden in afzonderlijke 
zinnen op te schrijven. Soms brengt dit met zich mee dat de zich 
vertakkende logica wordt omgedraaid; het hierboven genoemde kan 
worden herschreven, maar nu goed: 


IF EERSTE-TEKEN NOT = "А" OR LAATSTE-VIER LESS THAN 1 
OR LAATSTE-VIER GREATER THAN 5000 
PERFORM FOUTMELDING. 


De meeste ervaren programmeurs hangen het standpunt aan, 
dat terwille van de eenvoud AND's en OR's niet behoren voor te 
komen in dezelfde samengestelde voorwaarde. Velen vinden boven- 
dien dat samengestelde voorwaarden in hun geheel moeten worden 
vermeden. 
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Ордауеп 


1. Welke logische tegenspraak staat er tussen de haakjes in het 
voorbeeld op bladzijde 85? 


2. Schrijf opdrachten voor de Procedure Division die de volgende 

logica uitdrukken: | 

a) Indien KLANT-CODE staat in de reeks А t/m D, dan is de 
KORTING 0.10. Voor andere waarden van KLANT-CODE is 
de KORTING nul. 

b) Indien VERKOOP-DAG niet-numeriek is of VERKOOP-MAAND 
niet valt in de reeks 1 t/m 12, moet het programma de 
procedure FOUTMELDING uitvoeren. 


I3 СЕМЕЅТЕ IF-OPDRACHTEN 


Het is volkomen geoorloofd een IF-opdracht in te bedden in een 
andere IF-opdracht. Alleen als dit nesten het gevolg is van een 
grondige en goed gedocumenteerde analyse van de logica, zoals 
beschreven in deel 2 kan het worden toegepast, anders moet het 
worden vermeden omdat het kan leiden tot nodeloos ingewikkelde 
programma's. 

Er zijn twee hoofdvarianten. De eerste luidt: 


IF A = В IF С = D PERFORM Р1 ELSE PERFORM P2 
ELSE PERFORM РЗ. 


Dit betekent: PERFORM P1, indien zowel A = B als C = D; 
PERFORM Р2, indien А = B maar C # D; PERFORM P3, indien 
A # В. De regel is dat de binnenste ELSE wordt gepaard aan de 
binnenste IF, de volgende ELSE aan de eerdere IF en zo naar 
buiten toe door te werken. Als u de verleiding om geneste IF's te 
gebruiken niet kunt weerstaan, kunt u uzelf en andere lezers van 
uw programma helpen door iedere IF-opdracht te laten inspringen 
en de overeenkomstige ELSE-opdrachten daaronder te coderen, 
d.w.z: 


IF А = В 
IF C = D 
PERFORM P1 
ELSE 
PERFORM P2 
ELSE 
PERFORM P3. 


De andere hoofdvariant is als volgt: 
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IF Е = F PERFORM P4 ELSE IF С = Н PERFORM P5 
ELSE PERFORM P6. | 


Dit betekent: indien Е = Е, PERFORM P4; indien Е # Е, maar 
G = H, PERFORM P5; indien E # F еп G # Н, PERFORM P6. Het 
behoort te worden gecodeerd: 


IF ЕсЕ 
PERFORM P4 
ELSE 
IF G = H 
PERFORM P5 
ELSE 
PERFORM P6. 


Er zijn geen opgaven bij deze paragraaf. 


м VARIANTEN VAN DE PERFORM-OPDRACHT 


identifier 


š | ТІМЕ5 
integer 


a) PERFORM procedure-name | 


Dit zal tot gevolg hebben dat de gespecificeerde 
paragra(a)f(en) het aantal keren dat is aangegeven wordt (worden) 
uitgevoerd. Om bijvoorbeeld de som van de waarden van een 
aantal velden beschreven in een occurs-passage te vinden: 


02 BEDR-1 OCCURS 100 TIMES PICTURE 9(4)V99. 
02 ANTWOORD PICTURE 9(6)V99. 
02 SUB PICTURE 999 COMP. 


kunnen we coderen: 


MOVE ZERO TO ANTWOORD. 
MOVE 1 TO SUB. 
PERFORM TEL-OP 100 TIMES. 
PERFORM AFDRUK-ANTWOORD. 
STOP RUN. 

TEL-OP. 
ADD BEDR-1 (SUB) TO ANTWOORD. 
ADD 1 TO SUB. 


b) PERFORM procedure-name UNTIL condition 
Dit heeft tot gevolg dat de gespecificeerde paragra(a)f(en) 


wordt (worden) uitgevoerd totdat aan de voorwaarde wordt voldaan. 
De voorwaarde kan enkelvoudig of samengesteld zijn. De paragraaf 
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wordt geen enkele keer uitgevoerd wanneer direct aan de voor- 
waarde wordt voldaan. Om het laatste voorbeeld te herhalen en uit 
te breiden: 


02 ANTWOORD PICTURE 9(5)V99. 


MOVE ZERO TO ANTWOORD. 
MOVE 1 TO SUB. 
PERFORM TEL-OP UNTIL SUB = 101 OR FOUT-SEIN = "J", 
PERFORM AFDRUK-ANTWOORD. 
STOP RUN. 
TEL-OP. 
ADD BEDR-1 (SUB) TO ANTWOORD ON SIZE ERROR 
MOVE "J" ТО FOUT-SEIN 
MOVE ZEROES TO ANTWOORD. 
ADD 1 TO SUB. 


Er wordt op de voorwaarde getest, voordat de paragraaf wordt 
uitgevoerd, dus als de voorwaarde waar is aan het begin, wordt de 
paragraaf geen enkele maal uitgevoerd. | 

Deze variant van de perform-opdracht kan als de krachtigste 
en meest universele worden beschouwd. Want hoewel de perform... 
varying-variant (zie hieronder) eveneens gebruikt zou kunnen 
worden als het aantal malen dat de procedure uitgevoerd moet 
worden onbekend is, worden deze laatste variant en ook de voor- 
gaande variant (perform ... times) gewoonlijk gebruikt als dat 
aantal wel bekend 15. 


с) PERFORM... VARYING. ..FROM...BY...UNTIL condition 


Dit is een handige vorm van de perform-opdracht die ons in 
staat stelt om de initiële waarde en stapgrootte met betrekking tot 
de uitvoering van de out-of-line paragraaf vast te stellen. In het 
voorgaande voorbeeld kunnen we dan de value-passage voor SUB 
laten wegvallen en coderen: 


PERFORM TEL-OP VARYING SUB FROM 1 BY 1 UNTIL 
SUB = 101 OR FOUT-SEIN = "J". 
PERFORM AFDRUK-ANTWOORD. 
STOP RUN. 
TEL Op. 

ADD BEDR-1 (SUB) TO ANTWOORD ОМ SIZE ERROR 
MOVE "J" TO FOUT-SEIN 
MOVE ZEROES TO ANTWOORD. 
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Opgaven 


1. 


In het Ruritanische belastingstelsel krijgen de werknemers ееп 
codering in de reeks A t/m G die volgens onderstaande tabel 
de belasting aangeeft die van het salaris moet worden 
ingehouden. 


Belasting code Belasting 


0 
100 
200 
350 
550 
800 

1100 


сти ООШ» 


Deze twee tabellen worden іп de working storage beschreven 
als volgt: 


01 TABELLEN. 
02 TAB-VAN-CODES VALUE "ABCDEFG". 
03 BEL-CODE OCCURS 7 TIMES PICTURE X. 
02 TAB-INH VALUE "000001000200350055008001100". 
03 BELASTING OCCURS 7 TIMES PICTURE 9(4). 


Een werknemersrecord wordt door het programma ingelezen. 
Het bevat een picture-veld, WRKN-BEL-CODE genaamd, 
waarvan gecontroleerd is dat het in de reeks A t/m G ligt. 
Schrijf opdrachten die de juiste BELASTING van BELASTBAAR- 
INKOMEN aftrekken. Het programma moet vervolgen met 
BEREKEN-NETTO-SALARIS. | 


In working storage worden de volgende elementen beschreven: 
01 CONTROLE-ELEMENTEN COMP. 


02 TEMP PICTURE 999. 
02 FACTOR PICTURE 9. 


02 SUB PICTURE 9. 
02 SOM PICTURE 999. 
01 КЕК-КО. 


02 CIJFER OCCURS 6 TIMES PICTURE 9. 
02 CONTROLE-CIJFER PICTURE 9. 


Ieder cijfer in REK-NO moet worden vermenigvuldigd met een 
FACTOR, hetgeen een produktcijfer oplevert. De factor is 7 
voor het eerste (linker)cijfer, 6 voor het tweede cijfer en zo 
naar beneden tot en met 2 voor het laatste cijfer. De som van 
de produktcijfers moet door 10 worden gedeeld еп de rest, 
afgetrokken van 10, moet in CONTROLE-CIJFER worden 
geplaatst. Codeer dit. 
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Paragraaf 11 


E 


01 REK-NO. 

02 EERSTE-TEKEN PICTURE Х. 

02 TWEEDE-TEKEN PICTURE Х. 

02 LAATSTE-VIER PICTURE 9(4). 
PROCEDURE DIVISION. 


IF EERSTE-TEKEN NOT = "А" PERFORM FOUTMELDING. 

IF LAATSTE-VIER NOT NUMERIC PERFORM FOUTMELDING. 

IF LAATSTE-VIER LESS THAN 1 PERFORM FOUTMELDING. 

IF LAATSTE-VIER GREATER THAN 5000 PERFORM FOUTMELDING. 


Als u wilt dat FOUTMELDING slechts eenmaal wordt uitgevoerd 
ook al bevat het REK-NO meer dan één soort fout, dan kan 
dit worden bereikt door middel van een samengestelde voor- 
waarde (zie volgende paragraaf) of door achter iedere 
PERFORM (voor de afsluitende punt) een GO TO-opdracht 

te plaatsen die over de overige testvragen heenspringt. 


Paragraaf 12 


1; 


Een getal kan niet zowel kleiner dan of gelijk aan 0 zijn èn 
tevens groter dan of gelijk aan 5001. 


a) IF KLANT-CODE LESS THAN "А" OR 
KLANT-CODE GREATER THAN "р" 

MOVE ZERO TO KORTING 

ELSE MOVE .1 TO KORTING. 


b) IF VERKOOP-DAG NOT NUMERIC OR 
VERKOOP-MAAND LESS THAN 1 OR 
VERKOOP-MAAND GREATER THAN 12 
PERFORM FOUTMELDING. 


Paragraaf 14 


А. 


Vele antwoorden zijn mogelijk. Een eenvoudig antwoord is dit: 


MOVE 1 TO SUB. 
PERFORM VERMEERDERING-SUB 
UNTIL WRKN-BEL-CODE = BEL-CODE (SUB). 
SUBTRACT BELASTING(SUB) FROM BELASTBAAR-INKOMEN. 
BEREKEN-NETTO-SALARIS. 


VERMEERDERING-SUB. 
ADD 1 TO SUB. 
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2. Opnieuw zijn vele varianten mogelijk. Voorbeeld: 


MOVE 0 TO SOM. 
PERFORM BEREKEN-EN-TEL-OP VARYING SUB FROM 1 BY 1 
UNTIL SUB = 7. 
DIVIDE 10 INTO SOM GIVING SOM REMAINDER CONTROLE-CIJFER. 
TEE CONTROLE-CIJFER FROM 10 GIVING CONTROLE-CIJFER. 


$ 
ВЕКЕКЕК-ЕК-ТЕІ,-ОР. 
SUBTRACT SUB FROM 8 GIVING FACTOR. 


MULTIPLY FACTOR BY CIJFER(SUB) GIVING TEMP. 
ADD TEMP TO SOM. 


J ПЕІПЕМТІРІСАТТОМ 
ЕМ ENVIRONMENT DIVISIONS 


J1 DEIDENTIFICATION DIVISION 


Deze bestaat uit de volgende paragrafen: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 
(AUTHOR. comment. | 
(INSTALLATION. comment. | 
(DATE-WRITTEN. comment. | 
[DATE-COMPILED. 1 
(SECURITY. comment. | 


Alleen PROGRAM-ID is verplicht; de programmanaam moet 
overeenkomen met de regels voor de specifieke computer die men 
gebruikt. DE | 

De resterende paragrafen worden niet gebruikt door de 
compiler, behalve dat de compilatie-datum aan de paragraaf-naam 
DATE-COMPILED wordt toegevoegd. Het nut hiervan bij moderne 
computers is twijfelachtig omdat bijna alle compilers de datum toch 
al automatisch op de uitlijsting van het programma zullen plaatsen. 
Dit is gemakkelijk bij het nagaan welke uitlijsting van een 
programma dat we bezig zijn te ontwikkelen de laatste is. 

De andere paragrafen spreken voor zichzelf. Ieder commentaar 
kan op iedere plaats in het tekstgebied worden geschreven, mits 
een asterisk wordt geplaatst in kolom 7 van iedere regel (bij 
compilers met niet voorgeschreven lay-out aan het begin van de 
regel). Dit maakt de voorziening van speciale paragrafen t.b.v. 
commentaar enigszins overbodig en daarom is er nu voorgesteld 
deze opdrachten uit de standaard te halen. Toch is het nog steeds 
een goede gewoonte om deze paragrafen te gebruiken als een 
controlelijst van commentaren die aan het begin van het programma 
gemaakt moeten worden. 
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Het kan bijzonder nuttig zijn de doeleinden aan het einde van 
de Identification Division samen te vatten in gewoon Nederlands: 


*SAMENVATTING 
INVOER =STAMBESTAND KLANTEN OUD 
=GECONTROLEERDE MUTATIERECORDS 
UITVOER -5ТАМВЕ5ТАМр KLANTEN NIEUW 
=FOUTENOVERZICHT VAN MUTATIERECORDS (WIJZI- 
GINGEN EN VERWIJDERINGEN) WAARVOOR GEEN 
CORRESPONDEREND STAMRECORD BESTAAT, EN VAN 
IN TE VOEGEN MUTATIERECORDS WAAR EEN STAM- 
RECORD AL BESTAAT 
VERWERKING OVEREENKOMSTIG HET MUTATIECODE VELD ALS VOLGT 
І (INVOEGEN) НЕТ MUTATIERECORD WORDT NAAR HET 
NIEUWE STAMBESTAND UITGESCHREVEN 
W (WIJZIGEN) DE NIET-LEGE VELDEN VAN HET 
MUTATIERECORD WORDEN VERPLAATST NAAR DE 
JUISTE PLAATSEN VAN HET STAMRECORD 
V (VERWIJDEREN) HET STAMRECORD WORDT NIET 
NAAR HET NIEUWE STAMBESTAND UITGESCHREVEN. 


ZZ SS SS % % XX < X X % X х 


Opgave 


1. Schrijf de Identification Division voor een programma dat een 
bestand met records van 80 tekens leest, ze in een opklimmende 
reeks op grond van de eerste zes kolommen sorteert en ze uit- 
lijst op de regeldrukker. De installatie is Computer Service 
Centrale en er is geen security-belang voor het programma. 


J2 DE ENVIRONMENT DIVISION 


De division bestaat uit twee sections, de Configuration Section en 
de Input-Output Section. De beschrijvingen in deze sections 
variëren aanzienlijk van fabrikant tot fabrikant en bovendien 
zullen ze bij een bepaald computersysteem tot op zekere hoogte 
afhankelijk zijn van de precieze aard van de technische uitrusting 
die bij dat computersysteem wordt gebruikt. De nu volgende 
beschrijving licht slechts dat deel van de Environment Division toe 
dat de meeste fabrikanten en installaties gemeen hebben. 

De Configuration Section heeft drie fundamentele paragrafen: 
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CONFIGURATION SECTION, 
SOURCE-COMPUTER. computer-name. 
OBJECT-COMPUTER. computer-name. 
[SPECIAL-NAMES. entry. ] 


Bij source-computer en object-computer plaatst men de namen 
van de computers die worden gebruikt voor respectievelijk het 
compileren en het uitvoeren. Gewoonlijk is dit dezelfde computer. 
Bij bepaalde compilers kan de paragraaf object-computer worden 
uitgebreid om veel andere kenmerken van de computer vast te 
leggen. Deze beide paragrafen zijn nu nog verplicht in standaard 
COBOL, maar er is voorgesteld om ze facultatief te maken. 

De facultatieve paragraaf Special-Names kan worden gebruikt 
om de stand van bepaalde schakelaars van de computer te weten 
te komen; om een codeverzameling aan te geven zodat bestanden 
in een andere code gelezen of weggeschreven kunnen worden dan 
de bij de computer behorende; om aan te geven dat van een ander 
valutateken gebruik moet worden gemaakt dan het $-teken of 
om aan te geven dat, zoals in Europa gebruikelijk is, de conventies 
voor de decimale punt en komma moeten worden aangehouden (die 
conventies zijn precies omgekeerd ten opzichte van Amerika en 
Engeland). De laatste twee mogelijkheden stellen ons in Nederland 
in staat om met het S-teken te werken en ор de gebruikelijke 
manier in getallen met komma en punt om te gaan. De codering 
luidt: 


SPECIAL-NAMES. 
CURRENCY SIGN IS "Е". 
DECIMAL-POINT IS COMMA. 


Alle regels met betrekking tot het dollarteken in de PICTURE 
beschrijving (paragraaf F3) gelden nu voor het nieuwe valutateken, 
terwijl het dollarteken in dit programma niet meer mag worden 
gebruikt als valutateken. 

Wanneer men DECIMAL-POINT IS COMMA heeft gespecificeerd, 
verwisselen punt en komma van rol, zowel in de PICTURE-beschrij- 
vingen als in het programma. Voorbeeld (met DECIMAL-POINT 15 
COMMA): 


02 BEDRAG PICTURE 9.999,99. 


MOVE 3128,64 TO BEDRAG. 


Zonder DECIMAL-POINT IS COMMA had dit moeten luiden: 
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02 BEDRAG PICTURE 9,999.99. 


MOVE 3128.64 TO BEDRAG. 


De meeste computersystemen hebben een set met gestandaar- 
diseerde beschrijvingen voor deze Section, die eenvoudig kunnen 
worden gekopieerd bij ieder programma. 

De Input-Output Section heeft twee paragrafen waarvan een 
eenvoudige beschrijving als volgt luidt: 


INPUT-OUTPUT SECTION. 

FILE-CONTROL. {SELECT file-name ASSIGN TO device-name 
[RESERVE integer AREAS]} ... 

(1-0-СОМТЮОІ,. SAME RECORD AREA FOR file-name-1, Ғі1е-паше-2.1 


De paragraaf File-Control wordt gebruikt om het bestand dat 
we hebben beschreven in de File Section van de Data Division te 
koppelen aan een bepaald randapparaat. De te gebruiken naam 
voor dit randapparaat verschilt per computer. Veronderstel dat 
we een machine gebruiken die de apparaatnamen BEELDSCHERM 
en DRUKKER toestaat; we kunnen dan coderen: 


FILE-CONTROL. SELECT BEELDSCHBESTAND ASSIGN TO BEELDSCHERM. 
SELECT RAPPORTBESTAND ASSIGN TO DRUKKER. 


Op bepaalde machines wordt het apparaat niet expliciet 
genoemd, maar wordt het bestand in plaats daarvan gekoppeld aan 
een symbolische naam. Deze symbolische naam wordt dan op zijn 
beurt door opdrachten aan het operating system weer gekoppeld 
aan een echt apparaat. 

leder bestand heeft een bepaald deel van het geheugen toe- 
gewezen gekregen (buffer genaamd), dat wordt gebruikt om het 
blok dat op een bepaald ogenblik wordt verwerkt op te slaan. 
Gewoonlijk wordt aan ieder bestand slechts één buffer toegewezen. 
Indien RESERVE 2 AREAS is gespecificeerd, worden twee buffers 
aan het bestand toegewezen, waarbij een blok wordt gelezen in de 
tweede buffer terwijl het blok in de eerste buffer wordt verwerkt. 
In de meeste gevallen kan dit de verwerking van het programma 
versnellen, maar er zijn ook situaties denkbaar waarin er juist 
vertraging door zou optreden. Het is aan te bevelen om de hand- 
leiding van de fabrikant te raadplegen om na te gaan wat precies 
het effect van deze opdracht is bij de computer waarop u werkt. 

Er zijn geen opgaven bij deze paragraaf. Bestudeer nu de 
specificatie van het voorbeeldprogramma en codeer het aan de 
hand van het gegeven programmastroomschema. 


96 Basisbegrippen 


J3 VOORBEELDPROGRAMMA 


Invoer Stambestanden Computergangen Overdrachtsbestanden Uitvoer 


REDIETCOD 
TABEL 
"TABEL" 


MUTATIE 
RECORDS 


МІ 
МАСМЕЕТ- 
SCHIJF 


CONTROLE 
MUTATIE 


| 
| 
| 
| 
| 
| 
| 
| 
I 
RECORDS | 
| 
| 
| 
| 
| 
| 


FIGUUR 22 Voorbeeldprogramma: schema уап de computergang 


Invoer 


De records van MUT zien er als volgt uit: 


positie 1 mutatiecode, 1 alfabetisch teken 
2-6 Klantnummer, 5 cijfers 
7 Kredietcode, 1 alfabetisch teken 
8-16 Debet saldo, 8 cijfers, met een denkbeeldige decimale 
punt voor de laatste twee cijfers, en voorafgegaan 
door een expliciet vermeld teken. 
17-46 Klantnaam, 30 tekens 
47-136 Adres, 3 regels van elk 30 tekens 


De records van TABEL zien er als volgt uit: 


positie 1 Kredietcode, 1 alfabetisch teken 
2-8 Kredietlimiet, 7 cijfers. 


Uitvoer 


GELDMUT heeft dezelfde recordindeling als МОТ. 
FOUTENVERSLAG heeft een opmaak die bestaat uit een opeen- 
volging van groepen regels als volgt: 
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Regel 1 
positie 2 Mutatiecode 
4-8 Klantnummer 
10 Kredietcode 
11 Linkerhaakje 
12-20 Kredietlimiet, nul onderdrukt, komma ingevoegd 
21 Rechterhaakje 


23-32 Debetsaldo, niet opgemaakt 
34-63 Klantnaam 
65-94 Adres regel 1 


96- Boodschap "INVOER FOUT" 
Regel 2 

2 Eventuele asterisk 

4 Eventuele asterisk 

10 Eventuele asterisk 

23 Eventuele asterisk 

34 Eventuele asterisk 


65-94 Adres regel 2 


Regel 3 


65-94 Adres regel 3 
gevolgd door een regel wit. 


De eerste pagina van het FOUTENVERSLAG moet worden 
voorzien van een kopregel met als tekst: "CONTROLE VAN 
MUTATIES - FOUTENVERSLAG'" gevolgd door een regel wit. Deze 
pagina moet in ieder geval worden gemaakt, ook als er geen 
fouten zijn. 


Verwerking 


Het TABEL-bestand moet worden gelezen en opgeslagen in het 
geheugen. Er behoren 1 t/m 26 records in dit bestand aanwezig te 
zijn. Als het bestand leeg is, of als er meer dan 26 records 

worden gevonden, moet het programma worden onderbroken met de 
boodschap "TABEL-BESTAND LEEG" of "TABEL-BESTAND ONGELDIG" 
in overeenstemming met de situatie. 

Ieder record іп MUT moet worden gecontroleerd, waarna de 
geldige records worden weggeschreven naar GELDMUT. Als een 
veld in MUT ongeldig is, is het record ongeldig en moet dat worden 
weggeschreven in het FOUTENVERSLAG als een groep regels. De 
tweede regel van de groep moet een asterisk bevatten onder ieder 
ongeldig veld. De controles die worden uitgevoerd zijn: 

Mutatiecode moet "I", "W" of "V" zijn (hetgeen Invoegen, 

Wijzigen of Verwijderen betekent). 

Klantnummer moet uit 5 cijfers bestaan. 
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Kredietcode moet gelijk zijn аап een kredietoode in het 
TABEL-bestand. 

Debetsaldo moet helemaal uit spaties bestaan, of uit een teken 
gevolgd door acht cijfers. 

Debetsaldo moet uit blanco posities bestaan of + nul als mutatie- 
code "W" is. 

Klantnaam mag niet uit blanco posities bestaan. 


In tegenstelling tot de regels hierboven, moeten alle velden 
behalve het klantnummer uit blanco posities bestaan, wanneer de 
mutatiecode "V" is. Wanneer deze code "W" is, kan ieder veld 
anders dan klantnummer uit blanco posities bestaan. 

Wanneer details van een ongeldig record worden afgedrukt, 
moet de overeenkomstige kredietlimiet worden afgedrukt, indien de 
kredietcode geldig is en niet uit blanco posities bestaat. Anders 
blijft het veld kredietlimiet leeg in het verslag. 

Nadat verslag is gedaan van het laatste ongeldige record, of 
bij het begin van het verslag als er geen ongeldige records zijn, 
moet de volgende boodschap verschijnen: 


GELDIGE RECORDS: INVOEGINGEN ZZZ9 WIJZIGINGEN 2229 
VERWIJDERINGEN 2229 TOTAAL GELDIGE 2229 

TOTAAL DEBETSALDO VAN GELDIGE -2,222,229.99 
ONGELDIGE RECORDS: INVOEGINGEN 2229 WIJZIGINGEN 
ZZZ9 TOTAAL ONGELDIGE 22229 


Deze boodschap moet evenmin als een foutengroep gesplitst 
worden door het pagina-einde; begin een nieuwe pagina, indien 
noodzakelijk, om dit opsplitsen te voorkomen. 

U doet er verstandig aan uw kennis van de hoofdstukken A 
t/m J door verdere praktische oefening te verdiepen alvorens 
verder te gaan met de hoofdstukken К t/m Т. In Appendix B is 
een bloemlezing van opgaven opgenomen: de eerste vijf opgaven 
kunnen worden gemaakt uitsluitend en alleen op grond van hetgeen 
u tot nog toe heeft geleerd. 


J4 PROGRAMMA'S VAN FOUTEN ONTDOEN 


Het zou bijzonder opmerkenswaardig zijn als één van de program- 
ma's, die u schrijft om u te oefenen, direct zou functioneren. U 
zult dus worden geconfronteerd met de taak programma's van fouten 
te ontdoen, d.w.z. programmafouten vast te stellen en ze vervol- 
gens te corrigeren. De volgende opmerkingen (gebaseerd op 
onderzoek van J. Chan) kunnen u helpen bij een systematische 
vaststelling van fouten in de verwerking. 
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1. Bestudeer de resultatenuitlijsting (indien aanwezig). Zorg 
voor een duidelijk inzicht m.b.t. het symptoom, d.w.z. wat 
is exact het verschil tussen wat u heeft en wat u verwachtte. 

2. Bestudeer de boodschappen van het operating systeem voor 
mogelijke aanwijzingen, bijvoorbeeld tussentijdse onderbreking, 
waarschuwingen, overmatige verwerkings- of invoer/uitvoer- 
tijd. 

3. Controleer invoergegevensbestand(en) op formaat, blokkings- 
factor en inhoud om erachter te komen of ze met het gedecla- 
reerde formaat in het programma overeenstemmen en de 
inhoud hebben die u bedoelde. 

4. Stel een lijst met hypotheses op wat fout aan het programma 
kan zijn. Een hypothese is iedere bewijsbare of weerlegbare 
verklaring van de fout. 

о. Begin met de meest waarschijnlijke of de gemakkelijkst te 
toetsen hypotheses en controleer voor iedere hypothese het 
deel of de delen van het programma (of de gegevens of 
bedieningsinstructies enzovoort) die relevant zijn voor de 
geformuleerde hypothese. 

6. Bij het toetsen van hypotheses kunnen de volgende methoden 
worden gehanteerd. 

a) Voorwaartse methode. Traceer op basis van de hypothese 
stap voor stap en voorwaarts een specifieke routine of 
sprong waar de fout zou kunnen zitten. Traceren betekent 
hier dat u doet alsof u de computer bent en alle instructies 
uitvoert. 

b) Achterwaartse methode. Traceer op basis van de hypo- 
these stap voor stap en achterwaarts de instructies in de 
specifieke subroutine of programmeersprong; waarbij u 
begint op de plaats waarvan u denkt dat de fout optreedt. 

T. Wanneer een fout is gelokaliseerd, controleer dan of die het 
symptoom afdoende verklaart. Denk eraan dat u ergens anders 
zult moeten zoeken indien de fout zich niet bevindt op de 
plek waar u hem in eerste instantie verwacht. 


Schrijf bij het traceren de paragraafnamen op in de volgorde 
waarin u ze uitvoert evenals de waarden van variabelen die van 
belang zijn. Wanneer een paragraaf d.m.v. de PERFORM-instructie 
wordt afgehandeld, laat dan de paragraafnamen van de subroutine 
inspringen, totdat de subroutine is afgesloten. Ter illustratie moge 
het volgende ingewikkelde voorbeeld dienen ( schrijf dergelijke 
programma's liever niet!): 


P1. MOVE ZERO TO TELLER. 
PERFORM P2 THRU Р5. 
Р2. PERFORM РЗ. 
РЗ. ADD 1 TO TELLER. 
IF TELLER = 5 MOVE ZERO TO TELLER. 
Р4. ADD 3 TO TELLER. 
P5. DISPLAY TELLER. 
P6. ... wat is de waarde van teller? 
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Het traceren gaat als volgt: 


РІ TELLER = 0 


Р2 
P3 TELLER = 1 
P3 TELLER = 2 
P4 TELLER = 5 
Р5 
Р2 
P3 TELLER = 6 
P3 TELLER = 7 
P4 TELLER = 10 
P5 
P6 TELLER = 10 
ANTWOORDEN HOOFDSTUK J 
Paragraaf J1 


1. IDENTIFICATION DIVISION. 
PROGRAM-ID. ISITOK. 
“AUTHOR. UWNAAM. 
“INSTALLATION. COMPUTER SERVICE CENTRALE. 
*DATE-WRITTEN. DATUM VANDAAG. 
*SAMENVATTING. 
* INVOER -EEN BESTAND MET RECORDS VAN 80 POSITIES 
“UITVOER -ІЛТІ,І.75ТІМС VAN GERANGSCHIKT BESTAND 
*VERWERKING-DE RECORDS WORDEN INGEVOERD, GERANGSCHIKT 
ж NAAR KOLOM 1 T/M 6 (OPKLIMMEND) EN 
ж AFGEDRUKT. 


DEEL 2 


Programmerings- 
technieken 


K CONSTRUCTIES VOOR 
GESTRUCTUREERD 


PROGRAMMEREN 


K1 HET SCHRIJVEN VAN GROTE PROGRAMMA'S 


In Deel 1 van dit boek heb ik de aandacht gericht op de taalregels 
in COBOL en hoe die worden toegepast bij het schrijven van kleine 
programma's. Dit en het volgende hoofdstuk hebben niets te maken 
met 'regels' in COBOL, maar hebben betrekking ор aanbevelens- 
waardige gewoontes die de programmeur in staat stellen op een 
goede manier grote programma's te schrijven. 

Indien de student dit niet al heeft ontdekt, dan zal hij 
spoedig inzien dat het leren en toepassen van de COBOL-regels 
het gemakkelijkste onderdeel van programmeren is. Het verschil 
tussen goede en slechte programmeurs heeft weinig te maken met 
hun kennis van de finesses van de taal, maar veel meer met het 
antwoord op de vraag hoe zij hun programma's ontwerpen, 
documenteren en testen en met de mate waarin zij de hun gegeven 
opdrachten begrijpen. 

Dit onderscheid is vaak zonder veel betekenis voor de 
student. Dat komt doordat de programmeringsproblemen, waarvoor 
hij zich in de opgaven ziet geplaatst, in het algemeen overzichte- 
lijk en kort zijn: misschien maar 30 of 40 COBOL-instructies en 
zelden meer dan 100. De problemen bij het ontwerpen, documen- 
teren en testen van dergelijke programma's zijn tamelijk gering. 
De uitlijsting van het gehele programma zal waarschijnlijk passen 
op twee pagina's computerpapier; de in het programma gebruikte 
paragrafen en gegevens kunnen gemakkelijk worden gelokaliseerd 
en er zijn waarschijnlijk maar een paar verschillende programma- 
wegen die getest moeten worden. 

In tegenstelling hiermee zijn COBOL-programma's, geschreven 
voor toepassing in de praktijk dikwijls tamelijk groot. Een 
programma met een gemiddelde omvang kan honderden instructies 
bevatten en een groot programma wel duizenden instructies. Bij 
programma's met een dergelijke omvang zijn de problemen m.b.t. 
het ontwerpen, documenteren en testen van een andere orde van 
grootheid. Een belangrijke methode om deze problemen aan te 
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pakken is dan ook, zoals we straks zullen zien, het opsplitsen van 
het programma in kleinere eenheden met een hanteerbare omvang. 

Deze kleinere eenheden kunnen zelf programma's zijn die 
afzonderlijk worden gecompileerd en getest en vervolgens aan 
elkaar gekoppeld, zoals wordt beschreven in hoofdstuk U. Of ze 
kunnen onderdelen zijn van één enkele compilering. De laatst- 
genoemde vorm zal voorlopig worden aangehouden, maar voor 
mensen met ervaring die beschikken over goede mogelijkheden 
voor het koppelen van programma's kan de eerstgenoemde techniek 
de voorkeur hebben. 

De in dit Deel voorgestelde methoden zijn geenszins overal 
aanvaard of overeengekomen. Vele commerciële programmerings- 
afdelingen ontwikkelen hun eigen methoden en interne regels 
(programmeringsstandaards). Wel representeren de in dit boek 
voorgestelde methoden en standaards een hanteerbare en praktische 
methode voor het schrijven van grote programma's die de student 
gemakkelijk kan aanpassen aan andere standaards die hij eventueel 
tegenkomt. š 

Hoofdstuk L (het volgende hoofdstuk) is waarschijnlijk het 
moeilijkste hoofdstuk van dit boek. Maar ook dit hoofdstuk, dat 
een inleiding is op hoofdstuk L, is niet gemakkelijk. Hopelijk 
bevordert de ordening van de stof uw begrip van de diverse 
onderwerpen, maar u moet wel beseffen dat het vele programmeurs 
jaren heeft gekost om ze volledig te doorgronden. U moet dus 
niet verwachten dat u deze hoofdstukken zult beheersen zonder 
aanzienlijke inspanning. Als u zieh de moeite getroost die deze 
hoofdstukken vereisen, weet ik zeker dat u daarvan uiteindelijk 
geen spijt zult hebben. 

De in dit hoofdstuk gebruikte voorbeelden zijn afkomstig uit 
paragraaf J3 en Appendix B (het eerste vraagstuk over het 
probleem van de bevolkingsexplosie). Het scheelt enorm als u deze 
voorbeelden als onderdeel van uw studie m.b.t. Deel 1 hebt 
uitgevoerd; indien dat niet het geval is, raad ik u aan de 
specificaties te bestuderen en uw oplossing te overdenken alvorens 
verder te gaan. 


Opgave 

1. Plaats voor de automatiseringsafdeling van een commercieel 
bedrijf de volgende programmeringsdoelen in volgorde van 
belangrijkheid. 


a) Minimaliseren van verwerkingstijd en geheugenbehoefte. 

b) Minimaliseren van de gebruikte hoeveelheid pennen en 
coderingspapier. 

с) Verkrijgen van correcte resultaten. 

d) Minimaliseren van alle moeite besteed aan het ontwikkelen 
en testen van een werkend programma. 

e) Minimaliseren van de totale tijd besteed aan de codering 
van het programma. 
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f) Voorzieningen aanbrengen die iemand anders in staat 
stellen uw programma te begrijpen, zodat hij: 

1. u kan helpen met een probleem m.b.t. de logica; 

2. uw plaats kan innemen, indien u het bedrijf verlaat 
of afwezig bent; 

3. het programma kan wijzigen, nadat het de produktieve 
status heeft verkregen als een verborgen fout aan het 
licht komt of om het programma aan nieuwe eisen te 
te laten voldoen. 


K2 ONTWERPEN OM TE TESTEN 


Aangezien het belangrijkste doel bij het programmeren het 
verkrijgen van juiste resultaten is, moet het programma zo worden 
ontworpen dat het testen en het bewijzen van de correctheid 

ervan zonder al te veel moeite kunnen worden voltooid. Nu wil het 
geval dat het in het algemeen ook minder tijd vergt om program- 
ma's die worden ontworpen met het testen ervan in het achterhoofd 
tot een produktieve fase te ontwikkelen en ook zijn de programma's 
veel gemakkelijker te onderhouden. Daarmee wordt dan tegelijkertijd 
aan twee andere belangrijke programmeerdoelen voldaan. 

Een opmerkelijke gemeenschappelijke trek van veel program- 
meurs is hun optimisme. Zij schrijven hun programma's alsof die 
bij de eerste keer volledig correct zullen zijn. In de praktijk 
gebeurt het heel zelden dat een programma van welke omvang dan 
ook bij de eerste poging correct wordt opgeschreven. Ik heb mee- 
gemaakt dat zelfs ervaren programmeurs een groot programma 
coderen in enkele dagen en vervolgens weken of zelfs maanden 
besteden aan pogingen alle logische fouten te verbeteren. Als zij 
iets meer tijd hadden besteed aan het ontwerpen van het programma, 
dan zouden hun programma's een dag of wat later zijn gecompileerd. 
Maar deze vertraging zou vele malen zijn gecompenseerd door de 
vermindering van tijd, benodigd voor het opsporen van fouten en 
het testen. 

Ik haal dit aan om u te stimuleren een defensieve instelling 
ten aanzien van het programmeren aan te nemen. Met een dergelijke 
instelling worden programma's geschreven in de verwachting (die 
met aan zekerheid grenzende waarschijnlijkheid blijkt uit te komen!) 
dat ze het niet bij de eerste keer zullen doen, en dat veel tijd en 
inspanning nodig zullen zijn voor het opsporen van fouten. 

Een voorbeeld van hoe een dergelijke instelling kan helpen, 
is het volgende. Waarschijnlijk de meest voorkomende fout bij het 
programmeren, en zeker een van de moeilijkste om te vinden, komt 
voor wanneer tussenresultaten in het programma worden gebruikt 
of verwerkt die niet juist zijn of op onvoorziene wijze zijn vervalst. 
Zulke fouten zijn moeilijk te ontdekken omdat de gegevens 'onzicht- 
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baar! zijn wanneer we alleen de uitlijsting en de verkeerde resul- 
taten voor ons hebben liggen. | 

Wat іп het algemeen gebeurt is dat bij bepaalde sleutelpunten 
in een programma, een veronderstelling wordt gemaakt over de 
waarde van een tussenresultaat, bijvoorbeeld een identificatieteken, 
een totaal of een index. Deze beslissende veronderstellingen 
worden in het algemeen herkend door de programmeur en dikwijls 
tot onderwerp van een commentaar gemaakt, bijvoorbeeld: 


% DE INDEX WIJST NU NAAR HET LAATSTE TEKEN VAN 
х KLANTEN-NAAM 


of 


% HET IDENTIFICATIETEKEN WORDT ALTIJD OP NUL GEZET BIJ 
* DE EERSTE UITVOERING VAN DEZE ROUTINE, enzovoort... 


Dit is zoals het hoort. Maar toch is, zoals de zaken er nu 
voor staan, de enige manier om deze veronderstellingen te testen 
het in gedachten doorlopen van alle uitgewerkte programmalogica. 
Dit kan een veeleisende opgave zijn, als we zonder vergissing 
willen werken, in het bijzonder indien men door zijn eigen 
commentaar wordt misleid. Door nu DISPLAY-opdrachten (of 
opdrachten om fouten ор te sporen - zie paragraaf 02) in het 
programma op te nemen bij deze belangrijke punten kunnen we de 
veronderstellingen over de waarden van tussenresultaten testen. 
Dit is wat ik bedoel met een defensieve instelling - het ongunstigste 
verwachten. Na een uitvoeringstest kan de geldigheid van de 
veronderstellingen worden vastgesteld door de afgebeelde 
variabelen te onderzoeken; als alles klopt, kunnen de DISPLAY- 
opdrachten worden verwijderd (of de opdrachten om fouten op te 
sporen). 


Opgave 


1. Wanneer DISPLAY wordt gebruikt op de zojuist voorgestelde 
manier, zou u dan het bedieningspaneel van de operator of 
de regeldrukker als afdrukeenheid willen gebruiken? Welke 
stappen kunt u nemen om een lawine van afdrukresultaten 
bij het testen te vermijden? 


K3 BESTURINGSSTRUCTUREN 


Het probleem van het schrijven van de Procedure Division in een 
COBOL-programma bestaat in het beschrijven van de fundamentele 
bewerkingen die moeten worden uitgevoerd (ADD, MOVE enzovoort) 
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en де vertakkingen en herhalingen die ertoe zullen leiden dat 
deze bewerkingen in de gewenste volgorde worden uitgevoerd. 
Wanneer u eenmaal de syntactische en semantische aspecten van 
de programmeertaal beheerst, is het moeilijke van programmeren 
hoofdzakelijk gelegen in het gebruik van de vertakkings- en 
herhalingsbesturing m.b.t. de fundamentele bewerkingen. De 
grondgedachte achter het gestructureerde programmeren is het 
beperken van de besturingsstructuren tot drie standaardtypes, 
waarvan men veronderstelt dat ze minder vatbaar voor fouten zijn 
dan andere. Deze drie structuren worden in figuur 24 afgebeeld. 
Eigenlijk zou het nog beter zijn geheel van besturings- 
structuren af te zien door het gebruik van hogere instructies of 
een hogere programmeertaal, waarin de programmeur slechts 
benoemt wat hij wil hebben en zich geen zorgen behoeft te maken 
over de manier waarop het resultaat wordt verkregen. STRING en 


best 
Breng tekst naar REGEL naar REGEL 
Druk REGEL af 
Druk REGEL af 


Opeenvolging 


j Regelteller = 60? d 


Druk REGEL аҒ| Druk REGEL af 
en ga over en ga over 
op nieuwe op nieuwe 
pagina regel 


Als...dan...anders 


Druk REGEL af Druk REGEL af 
en ga over en ga over 
op nieuwe op nieuwe 
pagina regel 


Herhaal tot einde van 
bestand 


Herhaal...totdat... 


Einde van 
bestand? 


Lees een record in 


Lees een 
record in 


FIGUUR 24 De drie besturingsstructuren van gestructureerd 
programmeren. Links staan de structuurdiagrammen, 
rechts de gelijkwaardige programmastroomschema'= 
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UNSTRING (Hoofdstuk O) zijn voorbeelden van hogere instructies. 
Andere voorbeelden worden in Deel 3 gegeven. De report writer 
in COBOL (Hoofdstuk S) beschikt over typische kenmerken van 
dit soort zogenaamde declaratieve talen. Hogere faciliteiten moeten 
waar mogelijk worden benut. Maar deze faciliteiten zijn niet altijd 
beschikbaar en zijn dikwijls niet toereikend voor het probleem. 

Onder gebruikmaking van alleen de drie besturingsstructuren 
van figuur 24 kan ieder programma worden geschreven. Als we 
het probleem kunnen oplossen, terwijl we alleen deze besturings- 
structuren gebruiken, en we weten verder hoe we deze structuren 
in COBOL moeten weergeven, dan beschikken we over een methode 
voor het ontwerpen van programma's. Het volgende hoofdstuk houdt 
zich bezig met de vraag hoe het probleem ор te lossen іп gestruc- 
tureerde elementen. Dit hoofdstuk is gewijd aan de vraag hoe we 
de drie structuren in COBOL moeten weergeven. (Dit lijkt wellicht 
de verkeerde volgorde, maar ik denk dat u het volgende hoofdstuk 
beter zult begrijpen als u al tevoren precies weet, waarheen het 
leidt.) 

Als er van structuurschema's in tegenstelling tot stroom- 
schema's gebruik wordt gemaakt, bestaat er geen gevaar dat de 
beperkte hoeveelheid besturingsstructuren die is toegestaan wordt 
geschonden. De structuurdiagrammen kunnen in elkaar worden 
ingebed zoals in figuur 25. Bekijk deze figuur goed voordat u 
verder gaat met de tekst. 

Het is een open vraag of 'bereken groeifactor over 10 jaar! 
en 'stel bevolking aan het begin іп! thuishoren waar ze nu staan 
of aan het begin van 'Druk een pagina met resultaten af'. Evenzo 
kan 'stel decade in op lopende jaar + 10....' worden verschoven 
naar het hoofddiagram; trouwens, 'Druk een pagina met resultaten 
af' kan in zijn geheel worden opgenomen in het binnenste blok van 
het hoofddiagram. Al deze varianten staan op een logisch gelijk- 
waardig niveau; welke de voorkeur verdient, wordt aan het einde 
van het volgende hoofdstuk toegelicht. 


K4 OPEENVOLGING: ALS...DAN...ANDERS... 


Opeenvolging 


Dit is uitermate duidelijk aangezien alle gebiedende (imperatieve) 
instructies in COBOL achtereenvolgens worden uitgevoerd. Toch 
dient het volgende punt goed begrepen te worden: wanneer de 
fundamentele COBOL-instructies voorzien zijn van bijbehorende 
conditionele passages (waardoor ze conditionele en geen gebiedende 
instructies worden), behoort de logica van deze conditie af tot de 
volgende klasse уап besturingsstructuren, de als...dan...anders.… 
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Bevolkingsexplosie (zie Praktijkopgave 1, Appendix В) 
Bereken oppervlakte 
Herhaal tot einde van bestand 


Lees groeipercentage in 


Bereken groeifactor over 10 jaar 
Stel bevolking aan het begin in 
Doen: Druk een pagina met resultaten af 


Druk een pagina met resultaten af 


Stel decade in op lopende jaar + 10, druk kopregels af 
Herhaal totdat decade = lopende jaar + 210 of totdat 'size error! optreedt 


Bereken nieuwe bevolking 


t ы res nde 


Druk de foutboodschap af | Bereken nieuwe bevolkingsdichtheid 
Druk de foutboodschap af | Druk een regel met resultaten af 


Voeg 10 toe aan decade 


esin Re 
de eee 
rend се 


Figuur 25 Dit voorbeeld laat zien hoe de drie basisstructuren 
in elkaar kunnen worden geschoven, of apart kunnen 
worden gehouden als subroutines. Ieder rechthoekig 
diagram moet in zijn geheel worden vervangen door 
een rechthoek in een ander diagram, of moet geheel 
apart staan; het onderste plaatje laat een voorbeeld 


zien dat niet is toegestaan. 


De conditionele varianten van de in Deel 1 behandelde fundamentele 


instructies zijn: 


rekenkundige instructies met de passage SIZE ERROR 


READ met de passage AT END 
WRITE met de passage AT END-OF-PAGE. 
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Als...dan...anders 


Een COBOL-zin met IF...ELSE komt precies overeen met de 
als...dan...anders structuur. Als er niets moet worden gedaan in 
de ‘onware! poot, wordt het ELSE-gedeelte van de zin weggelaten. 
Als er niets wordt gedaan іп de ware poot, Кап de zin NEXT 
SENTENCE worden gebruikt; bijvoorbeeld IF REGELTELLER LESS 
THAN 60 NEXT SENTENCE ELSE PERFORM NIEUWE-PAGINA. 

De conditionele varianten van de fundamentele instructies 
stemmen eveneens overeen met de als...dan structuur, maar helaas 
hebben ze in standaard COBOL geen ‘onware! poot. ELSE in stan- 
daard COBOL past alleen bij IF. (Sommige niet gestandaardiseerde 
compilers paren ELSE aan iedere conditie, bijvoorbeeld READ...AT 
END...ELSE... . Er is nu voorgesteld dat COBOL de mogelijkheid 
van else-poten voor SIZE ERROR enzovoort moet hebben door een 
NOT-passage achter de conditie, bijvoorbeeld ADD...ON SIZE 
ERROR...NOT SIZE ERROR...) De huidige standaardversie levert 
een probleem op, wanneer er iets moet worden gedaan, zoals 
dikwijls voorkomt, in де "опмаге! poot van een fundamentele 
instructie. 

Een duidelijke oplossing voor simpele gevallen (d.w.z. 
wanneer de fundamentele instructie niet zelf ondergeschikt is aan 
een conditie) houdt in dat we een gegevenselement als identificatie- 
teken instellen om het resultaat van de conditionele zin in de 
fundamentele instructie te signaleren. Dit identificatieteken kan 
vervolgens worden getest d.m.v. een IF...ELSE-zin, hetgeen op 
doeltreffende wijze ееп "опмаге! poot аап de conditie toevoegt. Als 
voorbeeld de weergave van een deel van figuur 25 (we gebruiken 
W voor Waar en O voor Onwaar): 


MOVE "О" TO INSTEL-TEKEN. 
COMPUTE BEV ROUNDED = BEV % GROEI-FACTOR 
ON SIZE ERROR 

MOVE "ү" ТО INSTEL-TEKEN. 
IF INSTEL-TEKEN = "W" 

WRITE REGEL FROM FOUTMELDING AFTER 2 
ELSE 


Het volgende voorbeeld is een illustratie ontleend aan het in 
paragraaf J3 gespecificeerde programma en laat zien hoe we een 
als...dan...anders, dat is ingebed in een einde-van-bestand 
als...dan...anders kunnen afhandelen. 


MOVE "W" TO EVB-TEKEN 
READ TABEL-BESTAND 
AT END 

MOVE "М" TO EVB-TEKEN 
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ТЕ ЕУВ-ТЕКЕМ = "О" 
IF TABELINDEX LESS THAN 26 
ADD 1 TO TABELINDEX 
MOVE TABELREC TO W-S-TABELREC (TABELINDEX) 
ELSE 
DISPLAY "TABELBESTAND ONGELDIG" 
STOP RUN. 


Als u niet helemaal gelukkig bent met dit voorbeeld, teken 
dan het erbij behorende structuurdiagram en overtuig uzelf van 
de exacte betekenis. Het ging er hier uitsluitend om hoe zo'n 
structuur in COBOL is weer te geven. 

Wanneer de fundamentele instructie met de conditionele passage 
zelf verschijnt in een conditionele zin, hebben we te maken met 
een ingebedde conditie, waarin de ondergeschikte conditie niet 
over een "опмаге" poot beschikt. Aangezien de punt het bereik 
van alle condities markeert, kunnen we niet zo eenvoudig als 
hierboven eruit komen. Kijk naar het vervolg van het voorlaatste 
voorbeeld vanuit het structuurdiagram van figuur 25: 


IF INSTEL-TEKEN = "М" 
WRITE REGEL FROM FOUTMELDING AFTER 2 
ELSE 
COMPUTE DICHTHEID ROUNDED = BEV / OPPERVLAKTE 
ON SIZE ERROR 
MOVE "М" TO INSTEL-TEKEN. 
IF INSTEL-TEKEN = "М" 
WRITE REGEL FROM FOUTMELDING AFTER 2 
ELSE 
MOVE... (maak uitgewerkte regel klaar) 
WRITE REGEL FROM UITGEWERKTE-REGEL AFTER 2. 


Het probleem is hier dat de tweede IF-zin wordt uitgevoerd 
zelfs indien de eerste IF-conditie waar is, in tegenstelling tot het 
structuurdiagram. De consequentie in dit voorbeeld is dat de 
foutboodschap tweemaal wordt afgedrukt, wanneer BEV overloopt. 

Een algemene oplossing voor dit probleem is het verwijderen 
van ieder dubbel gebruik van identificatietekens (bijvoorbeeld 
door te schrijven: BEV-INSTEL-TEKEN, DICHTHEID-INSTEL- 
TEKEN) en het opnieuw testen van alle condities in de tweede 
zin, bijvoorbeeld: 
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IF BEV-INSTEL-TEKEN = "W" 
NEXT SENTENCE 
ELSE 
IF DICHTHEID-INSTEL-TEKEN = "W" 
WRITE REGEL FROM FOUTMELDING AFTER 2 
ELSE 
MOVE... 
WRITE REGEL FROM UITGEWERKTE-REGEL AFTER 2, 


Maar dit is nogal vermoeiend. De moeilijkheid is dat de opnieuw 
geteste condities altijd aanleiding geven tot een NEXT SENTENCE 
in de ware poot, omdat ze beogen over de gehele codering in de 
oorspronkelijke valse poot heen te springen. Hoewel we de codering 
iets kunnen vereenvoudigen doordat we de NEXT SENTENCEs 
kunnen verwijderen als we de condities vervangen door hun 
ontkenningen, is deze oplossing nog steeds tamelijk omslachtig. 

Er zijn nog twee andere algemene oplossingen: (a) de voor- 
waartse GO TO en (b) het out-of-line plaatsen van de conditionele 
instructie. 

In de eerstgenoemde methode moet de gemeenschappelijke 
activiteit die na voltooiing van welke conditionele actie dan ook 
moet worden uitgevoerd worden geidentificeerd en van een label 
voorzien. In figuur 25 gaat het dan om de actie 'voeg 10 toe aan 
decade' - laten we deze VOEG-TIEN-TOE noemen. Het opnieuw 
testen van condities in het voorbeeld kan nu worden vermeden 
door een GO TO naar het label aan het einde van de geneste 
condities, d.w.z.: 


MOVE "О" TO INSTEL-TEKEN. 
COMPUTE BEV ROUNDED = BEV * GROEI-FACTOR 
ON SIZE ERROR 
MOVE "W" TO INSTEL-TEKEN. 
IF INSTEL-TEKEN = "W" 
WRITE REGEL FROM FOUTMELDING AFTER 2 
GO TO УОЕС-ТІЕМ-ТОЕ. 
COMPUTE DICHTHEID ROUNDED = BEV / OPPERVLAKTE 
ON SIZE ERROR 
MOVE "W" TO INSTEL-TEKEN. 
IF INSTEL-TEKEN = "W" 
WRITE REGEL FROM FOUTMELDING AFTER 2 
GO TO VOEG-TIEN-TOE. 
MOVE... 
WRITE REGEL FROM UITGEWERKTE-REGEL AFTER 2 
VOEG-TIEN-TOE. 
ADD 10 TO DECADE. 
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Hierin Кап іп beide IF-zinnen een ELSE de punt aan het einde 
vervangen, zonder dat daardoor de interne logica verandert. Maar 
omdat de GO TO-instructies vooruit wijzen naar de volgende 
paragraaf, moet alles ná de GO TO-instructie en vóór de volgende 
paragraaf zich bevinden іп de ‘onware! poot, dus is ELSE over- 
bodig. 

De voorwaarts gerichte GO TO maakt het mogelijk deze 
codering op te poetsen. Aangezien ELSE overbodig is geworden, 
behoeven we niet langer een IF-zin die ons een ELSE oplevert, te 
bedenken. Omdat de andere dingen gelijk blijven, kunnen we 
alles wat met identificatietekens heeft te maken eruit halen en het 
voorbeeld als volgt opnieuw coderen: 


COMPUTE BEV ROUNDED = BEV * GROEI-FACTOR 
ON SIZE ERROR 

WRITE REGEL FROM FOUTMELDING AFTER 2 

GO TO УОЕС-ТІЕМ-ТОЕ. 
COMPUTE DICHTHEID ROUNDED = BEV / OPPERVLAKTE 
ON SIZE ERROR 

WRITE REGEL FROM FOUTMELDING AFTER 2 
GO TO VOEG-TIEN-TOE. 
MOVE... 
WRITE REGEL FROM UITGEWERKTE-REGEL AFTER 2. 

VOEG-TIEN-TOE. 

ADD 10 TO DECADE. 


Kijken we nog eens naar het voorbeeld van figuur 25 dan zien 
we dat we toch een size error teken nodig hebben om te signaleren 
dat de herhaling in dat geval beëindigd moet worden. Het is nog 
steeds nodig een teken in te stellen, wanneer zich een size error 
voordoet; dit kan echter worden gedaan in de SIZE ERROR poten 
hierboven. 

Indien er geen gemeenschappelijke activiteit bestaat die na 
voltooiing van welke conditie dan ook uitgevoerd moet worden, 
moet een dummy-paragraaf met de EXIT-instructie worden ingevoegd 
om als bestemming van de voorwaartse GO TO te dienen. Aangezien 
deze situatie zich alleen voordoet, wanneer de condities deel 
uitmaken van een blok dat wordt herhaald (of dat om een andere 
reden wordt uitgevoerd als een subroutine), wordt pas in de 
volgende paragraaf, die over herhalingen gaat een voorbeeld 
gegeven. 

De andere algemene oplossingsmethode hield het out-of-line 
plaatsen van de ondergeschikte conditionele instructie in. Wanneer 
we teruggaan naar het oorspronkelijke voorbeeld, krijgen we de 
volgende oplossing: 
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MOVE "О" TO INSTEL-TEKEN. 
COMPUTE BEV ROUNDED = BEV * GROEI-FACTOR 
ON SIZE ERROR 

MOVE "М" TO INSTEL-TEKEN. 
IF INSTEL-TEKEN = "ү" 

WRITE REGEL FROM FOUTMELDING AFTER 2 
ELSE 

PERFORM BEREKEN-DICHTHEID. 
ADD 10 TO DECADE. 


BEREKEN-DICHTHEID. 
COMPUTE DICHTHEID ROUNDED = BEV / OPPERVLAKTE 
ON SIZE ERROR 
MOVE "W" TO INSTEL-TEKEN. 
IF INSTEL-TEKEN = "W" 
WRITE REGEL FROM FOUTMELDING AFTER 2 
ELSE 
MOVE... 
WRITE REGEL FROM UITGEWERKTE-REGEL AFTER 2. 


Het gebruik van een afzonderlijk gecompileerd programma (zie 
Hoofdstuk U) om de functies van de subroutine uit te voeren 
(BEREKEN-DICHTHEID) is een bijzonder geval van deze algemene 
oplossing. Een afzonderlijk gecompileerd programma kan worden 
gebruikt daar waar de mogelijkheden optimaal zijn voor koppeling 
van programma's, waar de functie van de subroutine volkomen 
duidelijk en helder is; misschien met de kans om deze bij andere 
programma's opnieuw te gebruiken, en waar het zin heeft het 
programma als een afzonderlijke eenheid te testen. De laatste drie 
criteria steunen nauwelijks het opnemen van BEREKEN-DICHTHEID 
als een afzonderlijk programma. 

Of de oplossing met GO TO of met een out-of-line subroutine 
de voorkeur verdient, ligt geheel aan de omstandigheden van het 
specifieke probleem. In het algemeen ligt de kracht van gestruc- 
tureerd programmeren in de manier waarop het de spanwijdte van 
de aandacht, benodigd om een programma te bevatten, reduceert. 
De mogelijke spanwijdte van de aandacht is op haar beurt afhanke- 
lijk van de menselijke geheugencapaciteit op korte termijn en deze 
varieert enigszins per individu. De programmeur zou ernaar 
moeten streven de voor zijn programma benodigde spanwijdte van 
de aandacht te verkleinen, zowel voor hemzelf als voor iedere 
toekomstige lezer. 

De spanwijdte van de aandacht wordt bij gestructureerd 
programmeren versmald door de mogelijkheid de blokken onaf- 
hankelijk van elkaar te bekijken. In figuur 25 bijvoorbeeld kan 
'Druk een pagina met resultaten af' onafhankelijk van 'Bevolkings- 
explosie! worden bekeken mits men beseft dat het groeipercentage 
en de bevolking in het begin op een bepaalde waarde zijn ingesteld. 
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Deze twee variabelen kunnen worden opgevat als parameters of 
onafhankelijke variabelen die het hoofdprogramma met de subroutine 
verbinden. Als er veel (laten we zeggen meer dan drie) van 
dergelijke parameters voor onze gedachten de revue moeten 
passeren voordat we het programma kunnen begrijpen zal de 
spanwijdte van de aandacht zich aanzienlijk moeten verbreden. 
Dit duidt op de noodzaak van het uitzien naar vereenvoudiging. 
Als in figuur 25 'Bereken groei-factor over 10 јааг' en 'Stel 
bevolking aan het begin іп! worden overgebracht van het hoofd- 
programma naar de subroutine, behoeft alleen het groeipercentage 
doorgegeven te worden als parameter. Aangezien dit het aantal 
parameters doet verminderen (van 2 naar 1), verdient deze 
oplossing de voorkeur. 

We moeten een belangrijke voorwaarde bij het principe van 
de onafhankelijke beschouwing noemen. Een blok kan alleen onaf- 
hankelijk worden bekeken, indien de betekenis van iedere 
bewerking in dat blok volkomen duidelijk is. Wanneer één van de 
bewerkingen bestaat in het uitvoeren van een subroutine, is de 
exacte betekenis daarvan gedeeltelijk afhankelijk van de gekozen 
woorden die zijn gebruikt om de subroutine te beschrijven: de 
naam van de subroutine. Dit kan door de programmeur worden 
geregeld. Hij dient ervoor te zorgen een subroutine op te roepen 
met een naam die de betekenis ervan heel precies weergeeft. Als 
hij geen passende exacte naam kan bedenken, kan dit een teken 
zijn dat de subroutine geen logisch geheel vormt. 

De door de COBOL-werkwoorden aangegeven basisbewerkingen 
zijn volkomen duidelijk, aangezien ze in het COBOL-handboek 
worden beschreven. Een gelijkwaardige nauwkeurigheid wordt bij 
subroutine-bewerkingen zelden bereikt, zelfs niet wanneer de 
naam met zorg is vastgesteld. We hebben bijvoorbeeld al twee 
verschillende interpretaties van de subroutine 'Druk een pagina 
met resultaten af gezien: de interpretatie van figuur 25 еп de 
aangepaste interpretatie hierboven. Een perfect begrip van 
andermans programma wordt alleen bereikt door het te verstaan 
in termen van basisbewerkingen. Hoewel de auteur van het 
programma van figuur 25 het hoofdprogramma volkomen kan over- 
zien, moet de lezer daarvoor ook de subroutine in zich opnemen. 
De noodzaak om de subroutine in zich op te nemen verbreedt de 
vereiste spanwijdte van de aandacht waardoor het nut van 
onafhankelijke beschouwing verloren gaat. Behalve in het geval 
van een subroutine waarvan het doel heel goed wordt begrepen 
(het gaat bijvoorbeeld om een heel vertrouwde of standaardroutine 
of de routine voert een (wiskundige) functie uit die overal herkend 
wordt) behoort het een programmeringsdoel te zijn om de. diepte 
van het nesten van subroutines te beperken. 

De moraal van dit verhaal is aan te tonen dat de voorwaartse 
GO TO-oplossing de voorkeur verdient in de geschetste omstandig- 
heden. Maar bij andere omstandigheden, wanneer de functie van 
de subroutine beter wordt beschreven of wanneer de bestemming 
van de GO TO zeer ver verwijderd is en daardoor de aandacht 
zich moet rekken, is de oplossing met de subroutine beter. 
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Opgaven 


1. Vele programmeurs gebruiken graag een vierde constructie bij 
hun gestructureerd programma-ontwerp, namelijk de "саве! 
constructie (ook wel 'selection' genaamd). In principe is dit 
een lijst met te nemen acties overeenkomstig de waarde van een 
of andere variabele; een voorbeeld wordt gegeven in figuur 26. 


Transcode 


=? 


Doe 
Substitutie 


Doe 
Verwijdering 


Doe 
Wijziging 


Doe 
Invoeging 


Case І van transcode: doe invoeging 
Case W van transcode: doe wijziging 
Case V van transcode: doe verwijdering 
Case S van transcode: doe substitutie 
Case Else van transcode: onbepaald 


FIGUUR 26 Paragraaf К4, Opgave 1. De case-constructie. 


Deze constructie kan worden weergegeven door een andere 
constructie voor gestructureerd programmeren: hoe? 


d Welke alternatieven ziet u voor het invoeren уап een case- 
constructie in COBOL (a) wanneer de case-variabele alfa- 
numeriek is; (b) wanneer de case-variabele een geheel getal 
is in de reeks 1 t/m п, waarin п het aantal cases voorstelt? 
Wat is het beste alternatief? 


К5 REPEAT...UNTIL 


Deze constructie zal іп dit boek worden opgevat als exact gelijk- 
waardig aan de COBOL-instructie PERFORM...UNTIL (en in 
voorkomende omstandigheden aan zijn variant 
PERFORM...VARYING...FROM...BY...UNTIL). De herhalings- 
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blokken in figuur 25 kunnen achtereenvolgens worden uitgedrukt 
als volgt: 


PERFORM READ-GROEI-ETC UNTIL ЕУВ-ТЕКЕМ = "М" 


en 


PERFORM BER-BEV-EN-DRUK-AF VARYING DECADE FROM 
lopende-jaar+10 BY 10 UNTIL DECADE = lopende-jaar+210 
OR INSTEL-TEKEN = "М". 


Hoewel de gelijkheidstest met 'lopende-jaar+210' duidelijk zinnig is, 
zou een test met 'niet minder dan 200' een kleinere spanwijdte van 
de aandacht vereisen, aangezien naar gegevens in het probleem 
wordt verwezen. Maar de ‘niet minder dan'-stijl behoort niet te 
worden gebruikt, als deze het gevolg is van slordig denken m.b.t. 
де beëindigingsconditie. 

De logica achter iedere herhaling moet in de volgende fasen 
worden bedacht: 


1. Stel de begincondities vast 

2 Maak de test voor de beëindiging 

3 Doe de bewerking 

4. Werk de controlevariabelen bij voor zover aangegeven 
5 Herhaal vanaf fase 2. 


De PERFORM...VARYING... voorziet automatisch in een deel 
van deze logica en wordt daarom aanbevolen. We kunnen er echter 
niet altijd alle beginwaarden mee instellen noch alle vereiste 
controlevariabelen mee bijwerken. De twee bovengenoemde voor- 
beelden moeten daarom worden voorafgegaan door respectievelijk: 


MOVE "О" TO EVB-TEKEN 
en 
MOVE "О" TO INSTEL-TEKEN 


Onder verwijzing naar figuur 25 zal het duidelijk zijn dat, 
wanneer het bestandseinde is bereikt, er niets moet worden gedaan 
in het herhalingsblok. Dus: 


КЕАр-СКОЕІ-ЕТС. 

READ GROEIBESTAND 

AT END 
MOVE "М" TO ЕҮВ-ТЕКЕМ. 

IF EVB-TEKEN = "О" 
COMPUTE GROEI-FACTOR ROUNDED = .... 
MOVE 4000000000 TO BEV 
PERFORM DRUK-EEN-PAGINA-MET-RESULTATEN-AF , 
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Hier doet zich een complicatie voor, als een size error-passage 
wordt toegevoegd аап de COMPUTE-instructie, zoals werd aanbe- 
volen in paragraaf C3. Natuurlijk kan deze complicatie worden 
opgeheven als de betekenis van 'Druk een pagina met resultaten 
af! wordt verbreed, zoals іп de laatste paragraaf werd toegelicht - 
maar laten we ons ter wille van het voorbeeld aan de bovenstaande 
versie houden. 

Er bestaat geen instructie om van een label te voorzien t.b.v. 
een voorwaartse GO TO, dus er moet een EXIT-paragraaf worden 
toegevoegd, zoals in paragraaf D5 werd besproken. Dit dwingt tot 
het gebruik van de PERFORM...THRU variant; om dit te vermijden 
kunnen we van een herhalingsblok een SECTION maken. Wanneer 
een SECTION met PERFORM wordt uitgevoerd, worden alle para- 
grafen tot en met de laatste in de section uitgevoerd; de besturing 
keert terug na uitvoering van de laatste paragraaf, evenals dat bij 
een PERFORM...THRU die de eerste en laatste paragraaf ervan zou 
hebben genoemd, het geval zou zijn geweest. 

Het binnenste blok van ons programma kan nu worden 
voltooid: 


READ-GROEI-ETC SECTION. 
RG. 
READ GROEIBESTAND 
AT END 
MOVE "М" TO EVB-TEKEN 
GO TO ЕС-ЕХІТ. 
COMPUTE GROEI-FACTOR ROUNDED = .... 
ON SIZE ERROR 
DISPLAY "РЕОСКАММАҒОУТ IN RG - PROGRAMMA AFGEBROKEN" 
STOP RUN. 
MOVE 4000000000 TO BEV. 
PERFORM DRUK-EEN-PAGINA-MET-RESULTATEN-AF , 
RG-EXIT. 
EXIT. 


Het gebruik, zoals hier, van STOP RUN in een out-of-line 
paragraaf moet worden beperkt tot als 'abnormaal' beschouwde 
eindes. 

In de praktijk is het zo dat een bijzondere actie nodig is als 
een invoerbestand leeg is. Dat heeft tot gevolg dat de eerste 
READ-instructie van de andere wordt onderscheiden. (D.w.z. voer 
de bijzondere actie uit, indien einde van bestand wordt ontdekt bij 
de eerste READ. In het andere geval: verwerk het record. Wanneer 
einde van bestand wordt ontdekt bij een van de volgende READ's 
voer dan de normale actie bij einde van bestand uit.) 

Deze situatie wordt behandeld door de eerste READ-instructie 
in-line te zetten en opvolgende READ-instructies in een herhalings- 
blok te plaatsen. Aangezien er reeds een record is ingelezen bij 
de ingang naar de subroutine, moet de logica van de subroutine 
eerst het zojuist ingevoerde record verwerken en daarna het 


118 _Programmeringstechnieken 


volgende record lezen. Een gelukkige omstandigheid is dat hier- 
door de voorwaartse GO TO wordt geëlimineerd die verbonden is 
met het bestandseinde in de subroutine (en daardoor de behoefte 
aan een EXIT-paragraaf en daardoor weer de rechtvaardiging voor 
een SECTION). Bekijk het voorbeeld van de bevolkingsexplosie 
bijvoorbeeld eens met de nieuwe eis dat een boodschap moet worden 
gezonden aan de operator, als het invoerbestand leeg is. (Dit 
voorbeeld is ook een illustratie van de aangepaste versie van 

'Druk een pagina met resultaten af'.) 


PROCEDURE DIVISION. 
HOOFD SECTION. 
MI. 
OPEN INPUT GROEIBESTAND. 
MOVE "О" TO EVB-TEKEN. 
READ GROEIBESTAND 
AT END 
MOVE "W" TO ЕҮВ-ТЕКЕМ. 
IF EVB-TEKEN = "W'' 
DISPLAY "LEEG GROEIBESTAND - PROGRAMMA AFGEBROKEN" 
ELSE 
OPEN OUTPUT AFDRUKBESTAND. 
PERFORM VERWERK-GROEIPERC UNTIL ЕУВ-ТЕКЕМ = "W" 
CLOSE AFDRUKBESTAND. 
CLOSE GROEIBESTAND. 
STOP RUN. 
VERWERK-GROEIPERC. 
PERFORM DRUK-EEN-PAGINA-MET-RESULTATEN-AF . 
READ GROEIBESTAND 
AT END 
MOVE "М! TO EVB-TEKEN. 
DRUK-EEN-PAGINA-MET-RESULTATEN-AF . 
COMPUTE GROEIFACTOR ROUNDED = .... 
ON SIZE ERROR 
DISPLAY as. 
STOP RUN. 
MOVE 4000000000 TO BEV. 
3 | afdrukken 
kopregels 
MOVE "О" TO INSTEL-TEKEN. 
PERFORM BER-BEV-EN-DRUK-AF VARYING DECADE FROM .... 
BY 10 UNTIL DECADE = .... OR INSTEL-TEKEN = "М", 
BER-BEV-EN-DRUK-AF SECTION. 


De plaats waar de beginwaarden aan GROEI-FAKTOR en BEV 
worden toegekend stemmen overeen met de bespreking tot nog toe. 
De enige wijziging die ik nu nog zou willen maken is de verplaat- 
sing van deze opdrachten tot ná de afdruk van de kopregels om 
zo overeenstemming te bereiken met de goede algemene regel, dat 
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als parameters gebruikte variabelen zo dicht mogelijk bij het punt 
waar de subroutine wordt aangeroepen, op een bepaalde waarde 
worden ingesteld. Deze wijziging verandert de logica enigszins 
wanneer een size error optreedt. Als de size error optreedt 
resulteert dit in het afbreken van het programma en of in dat 
geval de kopregels wel of niet afgedrukt moeten worden is niet 
duidelijk. 


Opgaven 


1. Figuur 27 is een illustratie van een andere constructie die 
nogal eens voor gestructureerd programmeren gepropageerd 
wordt: de doe-eenmaal-en-herhaal...totdat... . Geef twee 
manieren aan waarop dit kan worden bereikt onder gebruik- 
making van de basisconstructies. 


Haal 
operator's 
opdracht op 


Haal 
operator's 
opdracht op 


Herhaal indien con 
ditie niet geldig 


FIGUUR 27 Paragraaf K5, Opgave 1 


(Bij gestructureerd programmeren wordt frequent gewerkt 
met do...while of while...do i.p.v. PERFORM...UNTIL. Dit 
is minder goed in COBOL weer te geven, aangezien voor 
weergave van de while-instructie met behulp van de 
PERFORM...UNTIL van COBOL de ontkenning van de 
conditie uit de while in de PERFORM-instructie gebruikt 
moet worden, hetgeen weer de spanwijdte van de aandacht 
verbreedt. Er zijn schrijvers die ervan uitgaan dat 

repeat. ..until dezelfde betekenis heeft als de constructie van 
figuur 27; ook wordt deze constructie wel eens opgevat als 
een do...until of een do-while-do. 

Deze situatie is ronduit ongelukkig. Welk werkwoord 
(repeat, do, enzovoort) wordt gebruikt, is niet echt belang- 
rijk. Een verstandige regel zou de volgende zijn: als de 
conditie aan het begin wordt genoemd (until conditie do..., 
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while not conditie repeat...), is de test bedoeld om als eerste 
te worden uitgevoerd; en als de conditie aan het einde wordt 
genoemd, is de test bedoeld om als laatste te worden uitge- 
voerd. Maar deze gedachte is niet overal doorgedrongen en 
daarom zal in dit boek iedere vermelding van 'until' inhouden: 
test eerst! ор de manier van COBOL.) 


2. Sommige kleine compilers beschikken niet over de UNTIL- 
versie van de PERFORM-instructie. Op de meeste computers 
gebruikt PERFORM heel wat meer computertijd dan GO TO en 
in zeldzame gevallen waarbij een programma een zeer dichte 
lus heeft die vele duizenden keren moet worden uitgevoerd 
kan het wenselijk zijn enige aanpassing te verrichten en 
GO TO te gebruiken i.p.v. PERFORM. Hoe zou u in het 
algemeen een programma coderen, indien u GO TO moest 
gebruiken i.p.v. PERFORM? 


3. Schrijf de codering die het TABEL-bestand van paragraaf 43 
leest en opslaat en hanteer hierbij de in dit hoofdstuk gegeven 
richtlijnen. 


4. Soms wordt gestructureerd programmeren gelijkgesteld met 
programmeren zonder GO TO. Dat is niet helemaal het stand- 
punt van dit hoofdstuk, maar er zijn beperkingen m.b.t. 
reikwijdte van GO TO's, indien de hier behandelde richtlijnen 
worden opgevolgd. Kunt u die beperkingen noemen? 


ANTWOORDEN HOOFDSTUK K 


Paragraaf K1 


1. De meeste mensen stemmen er gemakkelijk mee іп dat (с) het 
belangrijkste is en (b) het minst belangrijk en dat (d) 
belangrijker is dan (e). Mijn argument ten gunste van doel- 
einde (f) is dat, als de daarin opgesomde zaken niet kunnen 
worden gedaan, de doeleinden (c) en (d) de neiging zullen 
hebben onbereikbaar te worden. Daarom zet ik (f) op de 
tweede plaats. 

Resteert nog een bespreking van de relatieve waarde van 
(a) en (d). Het is zeker dat de kosten van het ontwikkelen 
van een programma hoog genoeg zijn om (d) belangrijker te 
vinden dan (a), als (a) niet zeer dringend gewenst is. 
Onder dat voorbehoud is mijn lijstje: (с) (f) (а) (a) (е) (b). 
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1. De regeldrukker. Als de apparatuur voor het afbeelden wordt 
gevormd door de beeldschermterminal van de programmeur, is 
bij de meeste installaties de kans groter dat het afgebeelde 
niet zo grondig wordt gecontroleerd als gebeurd zou zijn bij 
het verschijnen op harde kopieën. Het bedieningspaneel van 
de operator wordt alleen gebruikt voor zeer kleine gegevens- 
hoeveelheden, en dan nog alleen voor gegevens waarvoor van 
de operator wordt verwacht dat hij er iets mee doet of ze 
vastlegt. Als de af te beelden variabele in een lus zit, kan 
dat uitmonden іп een zeer grote hoeveelheid afdrukresultaten; 
u kunt de operator verzoeken het programma voortijdig na 
bijvoorbeeld x bladzijden of seconden te beëindigen. U kunt 
ook de DISPLAY -instructie conditioneel maken m.b.v. een 


teller. 

Paragraaf K4 

1. Zie figuur 28. Dit is duidelijk niet zo bevredigend, wanneer 
het aantal gevallen groot is. 


шш == 
Doe Invoeging 


Doe Verwijdering 
Doe Wijziging | Doe Substitutie 


FIGUUR 28 Antwoord bij Opgave 1, paragraaf K4 


2. а) (i) ТЕ TRANSCODE = "I" 
PERFORM INVOEGING 
ELSE 
IF TRANSCODE = "у" 
PERFORM VERWIJDERING 
ELSE 
IF TRANSCODE = "М" 
PERFORM WIJZIGING 
ELSE 
PERFORM SUBSTITUTIE. 
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(ii) IF TRANSCODE = "I" 
PERFORM INVOEGING. 
IF TRANSCODE = "ү" 
PERFORM VERWIJDERING. 
IF TRANSCODE = "W" 
PERFORM WIJZIGING. 
IF TRANSCODE = "5" 
PERFORM SUBSTITUTIE. 


b) GO TO 1 2 N DEPENDING ON CASE. 
1. PERFORM PROCES-1. 
GO TO VERVOLG. 
2. PERFORM PROCES-2. 
GO TO VERVOLG. 
М. PERFORM РКОСЕЅ-М. 
VERVOLG. 


Antwoord (а) (іі) is heel eenvoudig en aantrekkelijk wanneer 
efficiëntie geen overweging is. De efficiëntie van (a)(ii) kan 
worden vergroot door aan de eerste 3 performs een voor- 
waartse GO TO toe te voegen naar een vervolg-paragraaf en 
door de performs te rangschikken in de volgorde van waar- 
schijnlijkheid waarmee ze worden uitgevoerd. Als de andere 
methoden worden gebruikt, is een verklarend commentaar 
wenselijk. 

Er bestaat natuurlijk een subtiel verschil in de logica van 
(a)(i) еп (a)(ii) hierboven (welk?); ik ben ervan uitgegaan 
dat dit verschil niet belangrijk is. 


Paragraaf K5 


1. 
Haal operator's opdracht op Maak conditie ongeldig 


Herhaal totdat conditie geldig Herhaal totdat conditie geldig 


Haal operator's opdracht op Haal operator's opdracht op 


FIGUUR 29 Antwoord bij Opgave 1, paragraaf K5 


2. Ik zou bij mijn ontwerp van het programma gebruik maken 
van gestructureerde constructies (alsof PERFORM. ..UNTIL 
beschikbaar was). Waar ook maar een PERFORM...UNTIL zou 
verschijnen, zou ik een kleine lus aanbrengen volgens de 
5-stappen logica met daarbinnen als bewerking de enkel- 
voudige PERFORM. 
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Indien verdere afstemming wordt gewenst, kan de enkel- 
voudige PERFORM worden vervangen door de instructies waar 
hij uit bestaat. Dit kan de introductie van een verzamel- 
paragraaf met zich meebrengen en een andere paragraaf voor 
een voorwaartse GO TO om uit de herhaling te komen. 
Aangezien er een aanmerkelijk verlies in helderheid door deze 
afstemming optreedt, is de gulden regel: ga niet verder met 
afstemmen dan noodzakelijk is en breng vervolgens de 
PERFORM...UNTIL in als commentaar. 


3. OPEN INPUT TABEL. 
READ TABEL 
AT END 
DISPLAY "TABELBESTAND LEEG" 
STOP RUN. 
MOVE "О" ТО EB-TABEL. 
PERFORM VERWERK-TABELREC VARYING TABELSUB FROM 1 BY 1 
UNTIL TABELSUB GREATER THAN 26 OR EB-TABEL = "М". 
CLOSE TABEL. 
IF EB-TABEL NOT = "W" 
DISPLAY "TABELBESTAND ONGELDIG" 
STOP RUN. 


VERWERK-TABELREC. 
MOVE TABELREC TO W-S-TABELREC (TABELSUB). 
READ TABEL 
AT END 
MOVE "W" TO EB-TABEL. 


4. _Voorwaartse GO TO-instructies zijn altijd gericht op een 
gemeenschappelijk verzamelpunt. U zult nooit voorwaartse 
GO TO-instructies aantreffen die haasje-over spelen. Een 
achterwaartse GO TO, indien die al gebruikt wordt, zal zich 
geheel binnen of geheel buiten het bereik van iedere andere 
achterwaartse GO TO (of blok met een perform-instructie) 
bevinden. 


| GESTRUCTUREERD ONTWERPEN 
VAN PROGRAMMA'S 


L1 DE HERKENNING VAN GEGEVENSSTRUCTUREN 


Het vorige hoofdstuk ging over het vertalen van constructies voor 
gestructureerd programmeren in COBOL-codering. Dit hoofdstuk 
houdt zich bezig met het vertalen van het probleem in constructies 
voor gestructureerd programmeren. 

М. Jackson legde in zijn boek Principles of Program Design 
(Academic Press, 1975) de nadruk ор de relatie tussen gegevens- 
structuren en programmastructuren. Wil de programmeur een 
beslissing nemen over de programmastructuur, dan zal hij eerst 
de bij het programma betrokken gegevensstructuren moeten door- 
zien. De gegevensstructuren, waarnaar wordt verwezen, zijn 
gewoonlijk de invoer- en uitvoerbestanden, hoewel in minder vaak 
voorkomende gevallen een interne tabel moet worden geanalyseerd. 

De in dit hoofdstuk toegelichte methode is daarom als volgt: 


1. analyseer de gegevens in het probleem; 

2. maak op basis van deze analyse een diagram van de gegevens- 
structuur; 

3. maak een programmastructuur van het in hoofdstuk K 


beschreven type; 
4. maak het COBOL-programma. 


In de praktijk kunnen de gegevensstructuren dikwijls een- 
voudig worden weergegeven door een hiërarchie van drie elemen- 
taire constructies: volgorde, keuze en herhaling. Jackson's 
schematische blokken voor deze drie structuren worden in figuur 
30 afgebeeld: 
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(1) Volgorde (ii) Keuze (iii) Herhaling 
A bestaat uit B respec- (a) A bestaat uit B of C A bestaat uit nul 
tievelijk gevolgd door (b) A bestaat uit C of niets of meer keren B 

C en D 


FIGUUR 30 Gegevensstructuren. Als we het aantal keuzeblokken 
in de tweede mogelijkheid (ii) doen toenemen 
ontstaat ееп gegevensstructuur van het 'case!'-type. 


In de hier beschreven methode kan ieder blok door iedere 
andere constructie worden vervangen. Als bijvoorbeeld de herhaling 
uit één of meer keren B bestaat, kan dit op elk van beide manieren, 
zoals in figuur 31 wordt geillustreerd, worden beschreven. 


FIGUUR 31 Illustratie van de situatie waarin A wordt gevolgd 
één of meer keren B. Ieder van beide constructies 
is geoorloofd. 


Het hoogste niveau van een gegevensstructuur is in het 
algemeen het bestand. De aanwezigheid van recordtypen in het 
bestand wordt geïllustreerd door de gegevensstructuurblokken 
ondergeschikt aan het bestand bij te voegen. Figuur 32 illustreert 
sommige situaties die we al zijn tegengekomen (de stippellijnen in 
deze figuur worden in de volgende paragraaf toegelicht). 

Merk op dat, hoewel er slechts één type MUTREC bestaat, de 
geldige records anders dan de ongeldige records moeten worden 
verwerkt. Steeds wanneer er sprake is van een recordtype waarvan 
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BEVOLKINGS- 
EXPLOSIE 
OVERZICHT 


GROE I- 
PERCENTAGES 


D 


GROEI- 
PERCENTAGE 


PAGINA MET 
RESULTATEN 


TABELREC 


GROEI- DETAIL 


PERCENTAGE FOUTBOODSCHAP 
REGEL REGEL 
о 
SIZE ERROR 
REGEL 
WE wP. Тышы акы... FOUTEN- 
GELDMUT OVERZICHT 
* 
КОР- FOUTEN- VOETREGELS- 
GELDMUTREC OVERZICHT GROEP OVERZICHT 
тн wem Qum «ман» ` mmm -- 
* FOUT- FOUT- FOUT- VOET- VOET- 
GELDIG ONGELDIG 
rna hate шоп, Den SS WS E 


\ОЕТ- VOET- 
REGEL REGEL 
2 3 


FIGUUR 32 Gegevensstructuren bij de opgave bevolkingsexplosie 
(Appendix B) en het valideringsprogramma (paragraaf J3). 
Merk op dat TABEL weliswaar ongeldig is als het leeg is, 
maar dat van het valideringsprogramma verondersteld 
wordt deze ongeldigheid te behandelen. Het programma 
moet er dus nul of meer keren een TABELREC verwachten. 
Het FOUTENOVERZICHT moet een kop en een staartstuk 
hebben; het middenstuk van het overzicht kan leeg zijn. 
Het is niet duidelijk of er een FOUTENOVERZICHT moet 
worden geproduceerd als TABEL ongeldig is; waarschijnlijk 
is het beter het dan niet te produceren. In dat geval 
wordt FOUTENOVERZICHT een facultatief bestand, maar het 
| is niet nodig dit kenmerk іп het diagram vast te leggen 
| omdat dit diagram de structuur van FOUTENOVERZICHT меег- 
geeft als het wel wordt geproduceerd. 
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de records op grond van een of ander criterium op een aantal 
verschillende manieren behandeld moeten worden, is het, gezien 
het doel van het diagram voor de gegevensstructuur, aan te 
bevelen dit in het diagram aan te geven door daarin even zovele 
recordtypen in te voeren. 


Opgave 


1. Schets het diagram voor de gegevensstructuur ten behoeve 
van het probleem van de studentenaanwezigheid (Appendix B). 


L2 HET AFLEIDEN VAN DE PROGRAMMASTRUCTUUR IN EEN 
EENVOUDIGE SITUATIE 


We gaan uit van de bij het probleem betrokken gegevensstructuren 
m.b.t. invoer en uitvoer (zie figuur 32). Soms, zoals bij het 
valideringsprobleem, bestaat het programma uit een aantal fasen, 
in welk geval men de fasen onafhankelijk van elkaar kan beschouwen. 
Een fase wordt in het algemeen gekenmerkt door de mogelijkheid 
één of meer bestanden af te sluiten, voordat een ander bestand 

(of bestanden) wordt geopend. Zo kan de opslag van het TABEL- 
bestand onafhankelijk van de verwerking van het MUT-bestand 
worden bekeken. 

Vervolgens tekenen we pijlen die allemaal een één-op-één 
verhouding aangeven tussen een invoerblok en een uitvoerblok 
(zie stippellijnen in figuur 32). Zo produceert één MUT-bestand één 
GELDMUT-bestand en één FOUTEN-OVERZICHT-bestand. Eén 
MUTREC produceert één GELDMUTREC en één ONGELDIG MUTREC 
produceert een FOUTEN-GROEP. 

Hierna is het de bedoeling een diagram voor de programma- 
structuur (hoofdstuk K) te schetsen, dat alle blokken van het 
diagram voor de gegevensstructuur verwerkt. Zodra we een blok 
uit het diagram voor de gegevensstructuur hebben verwerkt in het 
diagram voor de programmastructuur, kruisen we dit blok af. We 
ontwerpen het diagram voor de programmastructuur door uit te 
gaan van de gegevensstructuur van het invoerbestand en dit door 
te werken; steeds wanneer er een blok is, moeten we dat 
"уегмегКеп!. Als het een opeenvolgingsblok is met een uitgang, 
moeten ме dat zodanig ‘verwerken! dat de uitvoer wordt 'geprodu- 
ceerd'. Wanneer het een herhaling is, moeten we 'repeat...until...' 
gebruiken. Wanneer het een keuze betreft, moeten we gebruik 
maken van 'if...then...else! zoals hieronder wordt geillustreerd. 

Eerste stap 


Verwerk MUT om GELDMUT en FOUTEN-OVERZICHT 
te produceren 
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Dit is een omschrijving уап de gehele programmabewerking. 
De resterende analyse bestaat uit een verdere uitwerking van deze 
bewerking. Kruis MUT, GELDMUT en FOUTEN-OVERZICHT af. 
Volgende stap: 


Herhalen tot bestandseinde van MUT 


Verwerk MUTREC | 


FIGUUR 33 Programmastructuur m.b.t. MUTREC 


Kruis MUTREC af. De volgende stap, de keuze, is onder- 
geschikt aan de herhaling: 


Herhalen tot bestandseinde van MUT 


Verwerk MUTREC 
re үй 


Verwerk GELDIG MUTREC OM Verwerk ONGELDIG MUTREC om 
GELDMUTREC te produceren | FOUTEN-GROEP te produceren 


FIGUUR 34 Programmastructuur na behandeling met de keuze 


Kruis GELDIG MUTREC, GELDMUTREC, ONGELDIG MUTREC 
en FOUTEN-GROEP af. 

We hebben de invoerblokken nu allemaal gehad en moeten nog 
rekenschap afleggen van de niet afgekruiste uitvoerblokken. De 
uitvoerblokken zullen worden verwerkt op één van de volgende 
drie manieren: 


a) als een bewerking vóór (of na) een al beschreven bewerking; 
b) als een uitbreiding van een al beschreven bewerking; 


с) доог middel van doe...ingeval... of eventueel een andere 
methode. 


Het laatste geval wordt behandeld in de volgende paragraaf. 

Als de uitvoer een keuze of herhaling is, moet die worden 
geproduceerd onder de besturing van de overeenkomstige 
gestructureerde constructie, zoals tevoren. Een uitbreiding kan òf 
in een afzonderlijk structuurdiagram worden geplaatst (als een 
subroutine) òf de oorspronkelijke bewerking vervangen. 

Als we een en ander toepassen op figuur 32, is het duidelijk 
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dat KOP-OVERZICHT wordt geproduceerd precies voor het door 
figuur 34 beschreven proces en dat VOETREGELS-OVERZICHT 
precies erna wordt geproduceerd. Alle andere blokken betreffen 
uitbreidingen met opeenvolgingsopdrachten van respectievelijk 
FOUTEN-GROEP en VOETREGELS-OVERZICHT. Zo ontstaat dan (zie 
figuur 35) het volledige diagram voor de programmastructuur van 
het valideringsprogramma uit figuur 32: 

Verwerk MUT om GELDMUT en FOUTEN-OVERZICHT te produceren 


Produceer KOP-OVERZICHT 


Herhalen tot bestandseinde van MUT 


а ee Толы 
Verwerk ONGELDIG MUTREC 
Produceer FOUTEN-GROEP x 


Produceer FOUTEN-GROEP Produceer VOETREGELS-OVERZICHT 


Produceer FOUTREGEL 3 


FIGUUR 35 Structuurdiagram van de tweede fase van het 
valideringsprogramma 


Met de gegeven methode (zie het vorige ‘hoofdstuk) van het 
vertalen van structuurdiagramman in codering bent u waarschijnlijk 
al in staat dit programma te coderen. Laten we echter ter wille van 
het voorbeeld doorgaan met deze methodische aanpak. 

Figuur 36 laat de met de eerste fase van het programma over- 
eenstemmende gegevensstructuren en programmastructuur zien. De 
working storage tabel en de eventuele foutboodschappen worden 
als uitvoergegevensstructuren behandeld. 
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М5-ТАВЕІ, 


ж 
BOODSCHAP BOODSCHAP WS-TABELREC 
LEEG ONGELDIG 


Verwerk TABEL om FOUT en WS-TABEL te produceren 


Herhalen tot einde TABEL-bestand of tabel ongeldig 


Verwerk TABELREC 


Produceer WS-TABELREC 


Produceer 
BOODSCHAP ONGELDIG 


FIGUUR 36 De eerste fase van het valideringsprogramma. De tweede 
fase wordt pas uitgevoerd, indien de tabel geldig is. 
Daarom hoort in het in deze figuur verkregen lege blok 
‘Verwerk МОТ om GELDMUT еп FOUTEN-OVERZICHT te produceren! 
te worden geplaatst. Als de tweede fase niet conditioneel 
was geweest had van een derde programmastructuur gebruik 
gemaakt kunnen worden om de fasen van het programma aan 
elkaar te koppelen. Deze zou slechts uit de twee opeen- 
volgingsbewerkingen Verwerk TABEL... en Verwerk МОТ... 
hebben bestaan. 


Produceer 
BOODSCHAP 
LEEG 


We gaan nu verder detailleren. Laten we aannemen dat we in 
working storage de volgende records hebben beschreven: KOP- 
OVERZICHT, FOUTREGEL-1 t/m FOUTREGEL-3, VOETREGEL-1 t/m 
VOETREGEL-4 en WS-TABELREC OCCURS 26 TIMES. De records 
TABELREC, MUTREC en GELDMUTREC hoeven alleen in de File 
Section te worden beschreven, omdat ze geen enkele constante 
bevatten waarvan de waarde door het programma moet worden 
bepaald. We zullen ook een File Section record nodig hebben voor 
FOUTEN-OVERZICHT;laten we dit REGEL noemen. 

Bovendien kunnen we verwachten dat we een identificatie- 
element nodig hebben voor iedere conditie die wordt getest in het 
programmastructuurdiagram, waar de conditie niet direct verwijst 
naar een invoergegevenselement. Misschien kunnen een aantal 
identificatietekens later worden verwijderd, wanneer we de codering 
gaan zuiveren zoals wordt toegelicht in de volgende paragraaf. Maar 
laten we van de slechtst denkbare situatie uitgaan. Nadere 
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beschouwing van de figuren 35 en 36 levert de volgende lijst met 
identificatietekens op: 


ЕВ-МОТ PICTURE Х 
MUTREC-GELDIG PICTURE X 
EB-TABEL PICTURE X 
TABEL-ONGELDIG PICTURE X 
TABEL-LEEG PICTURE X 


Als we ons richten ор besturingsstructuren en identificatie- 
tekens, dan zijn we al in staat om het raamwerk van onze Procedure 
Division te schrijven. (De getallen in dit voorbeeld zullen dadelijk 
worden toegelicht.) 


PROCEDURE DIVISION. 
VERWERK-TABEL SECTION. 
VERW-TABEL. 
MOVE "О" TO EB-TABEL. 
MOVE "О" TO TABEL-LEEG. 
1 READ TABEL 
AT END 
MOVE "W" TO EB-TABEL 
MOVE "М" TO TABEL-LEEG. 
MOVE "О" TO TABEL-ONGELDIG. 


Axe Э PERFORM VERWERK-TABELREC UNTIL EB-TABEL = "М" 
OR TABEL-ONGELDIG = "М". 
2 IF TABEL-LEEG = "М" 
DISPLAY "TABEL BESTAND LEEG" 
ELSE 


IF TABEL-ONGELDIG = "W" 

DISPLAY "TABEL BESTAND ONGELDIG" 
ELSE 

PERFORM VERWERK-MUT. 


28 t 
VERWERK-TABELREC SECTION. 
VERW-TABELREC. 
PRODUCEER-WS-TABELREC 
6 - 
READ TABEL 
AT END 
MOVE "М" TO EB-TABEL. 
VERWERK-MUT SECTION. 
VERW-MUT. 
PERFORM PRODUCEER-KOP-OVERZICHT. 13 
19 MOVE "О" TO ЕВ-МОТ. 
9 READ МОТ 
АТ ЕМІ) 
MOVE "М" TO ЕВ-МОТ. 
11 PERFORM VERWERK-MUTREC UNTIL ЕВ-МОТ = "W". 


10,12 PERFORM PRODUCEER-VOETREGELS-OVERZICHT. 
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VERWERK-MUTREC SECTION. 
VERW-MUTREC. 
MOVE "М" TO MUTREC-GELDIG. 
17,40 $ 
IF MUTREC-GELDIG = "W" 
PERFORM VERWERK-GELDIG-MUTREC 
PERFORM PRODUCEER-GELDMUTREC 
ELSE 
PERFORM VERWERK-ONGELDIG-MUTREC 
PERFORM PRODUCEER-FOUTEN-GROEP . 
READ MUT 
AT END 
MOVE "М! ТО ЕВ-МОТ. 
VERWERK-GELDIG-MUTREC SECTION. 


PRODUCEER-GELDMUTREC SECTION. 18 


PRODUCEER-FOUTEN-GROEP SECTION. 
РКОр-ЕООТЕМ-СКОЕР. 

20 PERFORM PRODUCEER-FOUT-REGEL-1. 
PERFORM PRODUCEER-FOUT-REGEL-2. 
PERFORM PRODUCEER-FOUT-REGEL-3. 

PRODUCEER-FOUT-REGEL-1 SECTION. 


192282 ў 
PRODUCEER-FOUT-REGEL-2 SECTION. 22 
PRODUCEER-FOUT-REGEL-3 SECTION. 
tO, 23 t 
PRODUCEER-VOETREGELS-OVERZICHT SECTION. 
PERFORM PRODUCEER-VOETREGEL-1. 24 
PERFORM PRODUCEER-VOETREGEL-2. SCH 
PERFORM PRODUCEER-VOETREGEL-4 . 27 


De volgende stap is het opstellen van een lijst van zoveel mogelijk 
zinnen, waarvan u verwacht dat ze in het programma moeten worden 


opgenomen en die niet al zijn behandeld. Het gaat hier om de volgende 
zinnen: 


_ OPEN INPUT TABEL. 
CLOSE TABEL. 
MOVE 1 TO TABELSUB. 
ADD 1 TO TABELSUB. 
IF TABELSUB = 27 MOVE "М" TO TABEL-ONGELDIG. 
MOVE TABELREC TO WS-TABELREC (TABELSUB) . 
OPEN OUTPUT FOUTEN-OVERZICHT. 
CLOSE FOUTEN-OVERZICHT. 
OPEN INPUT MUT. 
10 СІ05Е MUT. 
11 ОРЕМ OUTPUT GELDMUT. 
12 CLOSE GELDMUT. 
13 WRITE REGEL FROM KOP-OVERZICHT AFTER 2. 


NO OOI ON Qn +- WN — 
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14 IF MUT-CODE NOT = "I" OR "W" OR "у" 
MOVE "х" TO EVT-BEG-KOL-2 
MOVE "О" TO MUTREC-GELDIG. 
en alle andere valideringszinnen. 
15 MOVE МОТ-СОрЕ TO FOUTE-MUT-CODE 
en alle andere move-instructies die FOUTREGEL-1 produceren. 
16 MOVE MUT-ADRES(3) TO FOUTREGEL-3. 
17 MOVE SPACES TO FOUTREGEL-2. 
18 WRITE GELDMUTREC FROM MUTREC. 
19 MOVE 2 TO REGELTELLER. 
20 ADD 4 TO REGELTELLER. 
21 WRITE REGEL FROM FOUTREGEL-1 BEFORE 1. 
22 WRITE REGEL FROM FOUTREGEL-2 BEFORE 1. 
23 IF REGELTELLER LESS THAN 63 
WRITE REGEL FROM FOUTREGEL-3 BEFORE 2 
ELSE 
WRITE REGEL FROM FOUTREGEL-3 BEFORE РАСЕ. 
MOVE NUL TO REGELTELLER 
24 WRITE REGEL FROM VOETREGEL-1 BEFORE 1. 
25 WRITE REGEL FROM VOETREGEL-2 BEFORE 1. 
26 WRITE REGEL FROM VOETREGEL-3 BEFORE 1. 
27 WRITE REGEL FROM VOETREGEL-4 BEFORE 1. 
28 STOP RUN. 
29 МОУЕ MUT-ADRES(2) TO FOUTREGEL-ADR. 


Uw zinnen zijn mogelijk anders geformuleerd, maar deze 
geringe variaties hebben verder geen betekenis. Of we nu BEFORE 
of AFTER na WRITE-instructies kiezen is volkomen arbitrair, 
maar als we eenmaal hebben gekozen moeten de andere instructies 
hierbij aansluiten om de gewenste spatiëring bij het afdrukken te 
krijgen. 

Merk op dat in deze analyse de controle op de credietcode 
op dezelfde manier in een IF-instructie wordt afgehandeld als de 
controle ор de MUT-code, zoals die in item 14 is weergegeven; deze 
controle houdt natuurlijk meer in, maar dat kunnen we voorlopig 
buiten beschouwing laten, als we ons nu maar bedenken dat een 
negatief resultaat van deze controle moet resulteren in het verplaat- 
sen van een asterisk naar kolom 10 en in het op ongeldig zetten van 
het identificatieteken. Evenzo wordt de verplaatsing van de crediet- 
limiet voorlopig net zo afgehandeld als alle andere verplaatsingen 
van type 15. 

Nu is het zaak deze zinnen (instructies) op de juiste plaats 
in het raamwerk te schikken. Als u een bepaalde zin wilt inpassen, 
vraag uzelf dan af: „Ik moet deze bewerking steeds doen wanneer 
ik....2" Het antwoord ор deze vraag moet worden verschaft door 
een procedurenaam die u al heeft beschreven. Bijvoorbeeld: 
zin 1 - Ik moet dit steeds doen wanneer ik....verwerk-tabel. 

Zin 14 - Ik moet dit steeds doen wanneer ik....verwerk-mutrec. 
Wanneer de procedure is gelokaliseerd, kan de zin gewoonlijk 
rechtstreeks in het raamwerk worden geplaatst. Bestanden worden 
gewoonlijk geopend bij de laatste mogelijkheid en gesloten bij de 
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eerste mogelijkheid. Probeer te vermijden dat де beginwaarden van 
parameters worden ontkoppeld van aanroepen naar subroutines. De 
nummers van de items (zinnen) zijn in de marges van het raamwerk 
geplaatst om te laten zien hoe deze zaak verder wordt voltooid. 

De nummers die links van de instructies in het raamwerk 
staan, geven aan dat de desbetreffende zin vóór die regel moet 
worden ingevoegd. De nummers aan de rechterkant geven aan, dat 
de enkele zin alles omvat wat in de procedure aan de linkerkant 
aan de orde zal komen en die daarom kan vervangen. 

De items 4 en 5 zijn bij item 3 geplaatst vanuit de overweging 
dat 2, 4 en 5 tesamen een PERFORM...VARYING...UNTIL 
constructie vormen. Zonder deze overweging, had item 4 aan het 
einde van VERWERK-TABELREC geplaatst moeten worden en item 5 
aan het begin van VERWERK-TABELREC, waarbij regelingen 
getroffen zouden moeten worden voor het beëindigen van de 
procedure (exit), als de conditie waar zou zijn. 

De beschrijving, het stellen van beginwaarden en het bijwerken 
van de totalen m.b.t. de voetregels zijn in het voorbeeld wegge- 
laten; ze vormen een opgave voor de lezer. 

Wanneer u enige ervaring hebt met de organisatie van 
programma's op de hier beschreven tamelijk mechanische wijze, 
bent u in een goede positie de meer directe benadering met 
gestructureerd Nederlands, zoals toegelicht in de volgende para- 
graaf, te proberen. 


Opgave 


1. Houd het raamwerk en de annotatie m.b.v. getallen uit deze 
paragraaf aan om het voorbeeld te herschrijven. U zult 
begrijpen dat TABELSUB = 27 hetzelfde betekent als 
TABEL-ONGELDIG = "М" en dat dit kan worden gebruikt om 
het speciale identificatieteken TABEL-ONGELDIG te elimineren. 
Doordat de eenmalige voorafgaande READ TABEL (waarin het 
structuurdiagram niet had voorzien) is ingevoerd kan ook het 
identificatieteken TABEL-LEEG worden verwijderd. Ga dit na. 

Als in een door een PERFORM aangeroepen paragraaf of 
section slechts één imperatieve instructie aanwezig is, moet u 
de PERFORM vervangen door die instructie. Een procedure 
zonder zinnen moet u verwijderen. Als het programma slechts 
één paragraaf per section blijkt te hebben, moet u de sections 
verwijderen. 
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L3 GESTRUCTUREERD NEDERLANDS EN DOE STEEDS WANNEER 


Wanneer men eenmaal inzicht heeft verworven in de essentie 
van gestructureerd programmeren door het gebruik van structuur- 
diagrammen, is het tamelijk gemakkelijk de programmastructuur 
weer te geven in gestructureerd Nederlands, zoals hieronder wordt 
toegelicht. Deze methode heeft het voordeel dat er veel gemakkelijker 
wijzigingen kunnen worden aangebracht dan bij diagrammen. 
Gestructureerd Nederlands kan top-down worden gebruikt door een 
systeemanalist, die de doeleinden van een programma wil specifi- 
ceren, of analytisch door een programmeur die een programma wil 
ontwerpen. 

Bij het schrijven van gestructureerd Nederlands is het het 
beste een vel papier met verticale lijnen te gebruiken (computer- 
papier een kwart slag gedraaid voldoet ook). Iedere lijn of marge 
wordt gebruikt om de reikwijdte van de gestructureerde constructies 
aan te geven. Volgordebewerkingen worden op achtereenvolgende 
regels tegen een marge aangeschreven. Instructies die ondergeschikt 
zijn aan een 'Indien' of een "Апдегв! springen in, waarbij 'Anders' 
ор één lijn staat met 'Indien', ор de wijze zoals die in dit boek 
steeds is toegepast bij programmavoorbeelden. Maar er bestaat 
geen punt; de reikwijdte van een Indien of Anders wordt beperkt 
door de verschijning van een andere instructie verder weg met 
dezelfde marge, of door het fysieke einde van de procedure. 
Evenzo springen bij een herhaling de herhaalde instructies in vanaf 
een bepaalde marge en wordt de reikwijdte zichtbaar door een 
terugkeer naar die marge of door het fysieke einde van de 
procedure. (CODASYL heeft voorgesteld dat COBOL over expliciete 
afsluiters van de reikwijdte moet beschikken, zoals END-IF, 
END-PERFORM, waardoor COBOL-programma's kunnen worden 
gecodeerd op een bijna identieke wijze, zonder dat punten benodigd 
zijn.) Een subroutine kan worden uitgevoerd, in welk geval de 
procedurenaam van de subroutine wordt ingesloten in aanhalings- 
tekens in de aanroepende procedure en wordt onderstreept aan het 
begin van de aangeroepen procedure. Laat tenminste één regel wit 
of het woord 'Einde' tussen de procedures. 

Het volgende voorbeeld is het equivalent in gestructureerd 
Nederlands van de figuren 35 en 36. 
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Valideringsprogramma!' s 


Verwerk TABEL om FOUTBOODSCHAP en WS-TABEL te produceren 
Herhaal tot evb TABEL of tabel ongeldig 
\Verwerk TABELREC 
\Produceer WS-TABELREC 
Als tabel leeg 
\Produceer BOODSCHAP-LEEG 
Anders 
|Als tabel ongeldig 
| IProduceer BOODSCHAP-ONGELDIG 


| Anders 
| Doe 'Verwerk МОТ оп GELDMUT еп FOUTEN-OVERZICHT te 
produceren! 


Verwerk MUT om GELDMUT en FOUTEN-OVERZICHT te produceren 
Produceer KOP-OVERZICHT 
Verricht tot evb MUT 

Verwerk MUTREC 

(Als MUTREC geldig 

| |Verwerk GELDIG MUTREC 

| |Ргойџсеег GELDMUTREC 

lAnders 

| \Verwerk ONGELDIG MUTREC 

| [Doe 'Produceer FOUTEN-GROEP' 
Doe 'Produceer VOETREGELS-OVERZICHT' 


Produceer FOUTEN-GROEP 
Produceer FOUTREGEL-1 
Produceer FOUTREGEL-2 
Produceer FOUTREGEL-3 


Produceer VOETREGELS-OVERZICHT 
Produceer VOETREGEL-1 
Produceer VOETREGEL-2 
Produceer VOETREGEL-3 
Produceer VOETREGEL-4 


Deze beschrijving kan natuurlijk worden gebruikt om een 
raamwerkprogramma te produceren precies als hiervoor. Het zal 
duidelijk zijn dat gestructureerd Nederlands tot dezelfde organisatie 
van de tekst leidt als het structuurdiagram, behalve dat de 
'keuze'-bewerkingen boven elkaar worden gestapeld i.p.v. naast 
elkaar. 

Een veel voorkomende complicatie bij het ontwerpen van pro- 
gramma's met behulp van de methode uit paragraaf L2 is dat een uit- 
voerblok niet is afgekruist nadat het gestructureerde Nederlands is 
geproduceerd vanuit het gegevensstructuurdiagram. Dit probleem 
kan overwonnen worden d.m.v. een Doe...steeds wanneer. ..-con- 
structie (deze wordt niet overal erkend als een constructie voor 
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gestructureerd programmeren). Van de Doe...Steeds wanneer kunt 
u zich een denkbeeld vormen door het niet afgekruiste blok te 
bekijken en de volgende vraag te stellen: „Ik wil deze uitvoer 
produceren steeds wanneer ік...?" Het geleverde antwoord dient 
een complete weergave te zijn van alle condities waaronder de 
uitvoer moet worden geproduceerd. 

Stel dat een vereiste in het valideringsprobleem was een 
paginakop te produceren op iedere pagina van het FOUTEN- 
OVERZICHT waarin een FOUTEN-GROEP verscheen. De gegevens- 
structuur van FOUTEN-OVERZICHT kan dan worden gewijzigd zoals 
in figuur 37 is te zien. 


FOUTEN- 
— ў 
— — OVERZICHT 
* 
КОР- VOETREGELS- 
OVERZICHT қақтық OVERZICHT 
* 
PAGINA- FOUTEN- FOUTEN- 
KOP GROEP GROEP 
es” — © 


FIGUUR 37 Herziene structuur уап FOUTEN-OVERZICHT 


We hebben nu twee blokken die de woorden FOUTEN-GROEP 
bevatten. De stippellijnen laten de 'gevorkte! pijl zien die komt van 
ONGELDIG MUTREC en geven aan dat een ONGELDIG MUTREC of 
met de eerste FOUTEN-GROEP in een PAGINA correspondeert of 
met een opvolgende FOUTEN-GROEP. Zo willen we dus nog steeds 
dat bij de verwerking van een ONGELDIG MUTREC een FOUTEN- 
GROEP wordt geproduceerd. Hetzelfde programmastructuurdiagram / 
gestructureerd Nederlands zal hieruit resulteren en beide blokken 
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met FOUTEN-GROEP kunnen worden afgekruist. Produceer KOP- 
OVERZICHT en Produceer VOETREGELS-OVERZICHT worden zoals 
tevoren behandeld. Produceer PAGINA en Produceer PAGINA-KOP 
blijven nu over en die kunnen we nu afhandelen door Doe...steeds 
wanneer constructies. „Ik wil PAGINA produceren steeds wanneer | 
...er een FOUTEN-GROEP moet worden geproduceerd en (het is 

de eerste FOUTEN-GROEP van het overzicht of ik heb de laatste 
regel van de eerdere FOUTEN-GROEP op minder dan vijf regels 

van het pagina-einde geschreven)! In gestructureerd Nederlands: 


Steeds wanneer er een FOUTEN-GROEP moet worden geproduceerd 
|А16 het de eerste FOUTEN-GROEP van het overzicht is of de 
laatste regel van de eerdere FOUTEN-GROEP stond op minder 
[дап 5 regels van het pagina-einde 
| |Produceer PAGINA 


Het is duidelijk dat ме bepaalde gegevens nodig hebben om de 
condities te herkennen - we moeten een identificatieteken EERSTE- 
FOUTEN-GROEP bedenken en we zouden REGELTELLER moeten 
bedenken, indien we dat niet al hadden gedaan. Kruis het blok 
PAGINA af. 

We gaan verder met het overblijvende niet afgekruiste blok: 
„Ik wil PAGINA-KOP produceren steeds wanneer...ik PAGINA 
produceer". Met andere woorden: Produceer PAGINA-KOP is een 
bewerking die altijd plaatsvindt na Produceer PAGINA of een 
bewerking die een uitbreiding is van Produceer PAGINA. Dit voert 
tot deze conclusie: 


Steeds wanneer er een FOUTEN-GROEP moet worden geproduceerd 
[А15 eerste foutengroep of regelteller groter dan 61 
| ІРгодисеек PAGINA 
| |Produceer PAGINA-KOP 


Om ееп Doe...steeds wanneer... іп het programma weer te 
geven moet u iedere plaats in het programma onderzoeken waar aan 
de 'steeds wanneer! conditie(s) wordt of kan worden voldaan en 
een zin invoegen die de logica van het gestructureerde Nederlands 
weergeeft. De invoering van identificatietekens of variabelen om 
een toetsbare conditie in het programma te creëren zal ook 
aanleiding geven tot andere zinnen (MOVE "W" ТО EERSTE-FOUTEN- 
GROEP, MOVE "О" TO EERSTE-FOUTEN-GROEP, MOVE 0 TO 
REGELTELLER, ADD 1 TO REGELTELLER) die behandeld moeten 
worden volgens de reeds toegelichte wijze. 

Het is duidelijk bij dit voorbeeld dat de 'steeds wanneer! in 
de procedure PRODUCEER-FOUTEN-GROEP hoort, waar we een 
openingszin als volgt nodig hebben: 


IF EERSTE-FOUTEN-GROEP = "И" OR 

REGELTELLER GREATER THAN 61 
PERFORM PRODUCEER-PAGINA 
PERFORM PRODUCEER-PAGINA-KOP. 
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Na enige vereenvoudigingen kan deze codering er als volgt uitzien: 


IF EERSTE-FOUTEN-GROEP = "ү" OR 
REGELTELLER GREATER THAN 61 
MOVE "О" TO EERSTE-FOUTEN-GROEP 
MOVE ZERO TO REGELTELLER 
WRITE REGEL FROM PAGINA-KOP AFTER PAGE 
ADD 1 TO REGELTELLER. 


Door deze aanpak kan de eerdere bewerking 23 vereenvoudigd 
worden tot WRITE REGEL FROM FOUTREGEL-3 BEFORE 2; en 
natuurlijk is er een andere duidelijke vereenvoudiging mogelijk in 
de codering hierboven (welke?). 

Af en toe bestrijdt men vereenvoudiging van codering met het 
argument dat het ertoe leidt dat de koppeling tussen de programma- 
structuur en gegevensstructuur minder duidelijk wordt en als 
gevolg daarvan het programma minder gemakkelijk wordt onder- 
houden. Een tegenargument is dat een niet vereenvoudigd 
programma een grotere reikwijdte van de aandacht kan vereisen om 
begrepen te worden, hetgeen kan resulteren in fouten bij de 
programmeur. 

De Doe...steeds wanneer... zorgt niet automatisch voor alle 
niet afgekruiste uitvoer. De uitvoervolgorde kan bijvoorbeeld 
tegenovergesteld zijn aan de invoervolgorde - misschien moet de 
invoer opnieuw worden gerangschikt. Wanneer er geen plaats in 
het programma is om de 'steeds wanneer'-logica in te voegen, of 
indien in de contekst van het tot zover ontwikkelde programma geen 
steeds wanneer! past, is een meer fundamentele wijziging nood- 
zakelijk. Maar dit voert ons eerder naar het gebied van systeem- 
ontwerp i.p.v. naar dat van het ontwerpen van programma's. 

Samengevat zijn de aanbevolen stappen bij het ontwerpen van 
programma's: 


1. Teken gegevensstructuurdiagrammen en geef de samenhang aan. 


2. Maak een specificatie in gestructureerd Nederlands op basis 
van het invoerbestand en de samenhang; voeg Doe...steeds 
wanneer... voor niet afgekruiste uitvoer toe. 


3. Maak een raamwerk-programma en negeer daarbij de Doe... 
steeds wanneer...'s. 


4. Voeg aan dit raamwerk alle zinnen toe die niet met 'steeds 
wanneer! hebben te maken. 


Voeg 'steeds wanneer'-elementen еп -zinnen toe. 

Controleer en vereenvoudig indien dat helpt. 

Als men over enige ervaring beschikt zal men geneigd zijn de 
specificatie in gestructureerd Nederlands direct op te schrijven. 


Toch is een ontwerp dat methodisch wordt afgeleid van het gegevens- 
structuurdiagram waarschijnlijk gemakkelijker te onderhouden. 
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Ордауеп 


1. Schrijf een specificatie in gestructureerd Nederlands van het 
bevolkingsexplosieprobleem. Doe dat 
a) d.m.v. afleiding uit de gegevensstructuren; 
b) aan de hand van figuur 25 (denk eraan de parameters te 
minimaliseren). Hoe verklaart u het verschil? 


2. Schrijf een specificatie in gestructureerd Nederlands van het 
probleem m.b.t. de aanwezigheid van studenten (zie opgave 1, 
paragraaf 11). 


3. Schrijf een specificatie in gestructureerd Nederlands van de 
opgave over het Gedicht (Appendix B). 


L4 MEERVOUDIGE INVOERBESTANDEN 


Wanneer er meerdere invoerbestanden in een probleem bestaan, 

moet u al de gegevensstructuren en samenhangen zoals hiervoor 
tekenen. Selecteer één bestand - het mutatiebestand - om de 
procedure te bepalen en maak de programmastructuur die resulteert 
uit de verwerking van dit bestand. Als er meerdere mutatiebestanden 
zijn, moet u het probleem behandelen alsof er twee programma's of 
twee fasen zijn. In de eerste fase worden dan de mutatiebestanden 
samengevoegd tot één mutatiebestand; in de tweede fase wordt dit 
samengevoegde mutatiebestand verwerkt om alle uitvoer te 
produceren. 

Een typisch probleem is dat waarbij de verwerking van een 
mutatiebestand moet resulteren in het produceren van een overzicht, 
waaraan ook corresponderende stamrecords hun bijdrage moeten 
leveren. Er kunnen daarbij verschillende mutaties bestaan voor 
eenzelfde stamrecord, maar er is steeds slechts één stamrecord 
voor een gegeven mutatie. Hoe het stambestand moet worden 
behandeld, kan als volgt worden geschetst: 


Steeds wanneer een mutatie moet worden verwerkt 

Als de mutatie-identificatie niet gelijk is aan de 
identificatie van het actuele stamrecord 

| Haal als actueel stamrecord op het stamrecord waarvan 

| de identificatie gelijk is aan de mutatie-identificatie 
| (Als er niet zo'n stamrecord is 
| 


Als het stambestand sequentieel is georganiseerd met records 
gerangschikt naar opklimmende volgorde van identificatie en als 
de mutatierecords evenzo zijn gerangschikt, wordt bovenstaande 
schets aldus: 
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Steeds wanneer een mutatie moet worden verwerkt 
Herhaal totdat identificatie van het stamrecord niet kleiner 
dan mutatie-identificatie of eb stambestand 
| Іеев stambestand 
Als identificatie stamrecord groter dan mutatie-identificatie 
of eb stambestand 


Men zal inzien dat het in beide ontwerpen duidelijk is waar 
‘Verwerk STAMRECORD' geplaatst moet worden zodat we in het 
gegevensstructuurdiagram een invoerblok stamrecord kunnen 
afkruisen. Evenals bij mutatiebestanden wordt de weergave van de 
tweede versie in het programma bevorderd als één stamrecord wordt 
gelezen aan het begin van het programma; vervolgens wordt | 
'Verwerk STAMRECORD' geplaatst onder de besturing van de 
Herhaal...totdat..., waarbij de laatste actie van Verwerk STAM- 
RECORD is: READ STAMRECORD AT END MOVE "W" ТО EB-STAM. 

Dit geval van een sequentieel georganiseerd invoer-stambestand 
dat wordt bijgewerkt door mutaties teneinde een sequentieel 
georganiseerd uitvoer-stambestand te produceren kan ook worden 
geanalyseerd met behulp van de 'steeds wanneer'-logica, bijvoor- 
beeld: 


Steeds wanneer een stamrecord moet worden ingelezen (dat niet het 
eerste record is) 
Schrijf het actuele stamrecord weg 


Dit geeft aanleiding ergens Produceer STAMUIT-RECORD te 
plaatsen. 

Indien de mutaties ook betrekking kunnen hebben op het 
verwijderen van een stamrecord, zullen we iets als het volgende 
moeten insluiten: 


Als het mutatietype verwijdering aangeeft 
\Verwijder het stamrecord 


Wanneer het stamrecord wordt bijgewerkt door een nieuw bestand 
op te bouwen, wordt dit resultaat verkregen, nadat eenmaal is 
vastgelegd dat de actuele identificatie van het stamrecord gelijk is 
aan de actuele mutatie-identificatie, door het invoer-stamrecord 
over te slaan met een tweede "read: 


Als het mutatietype verwijdering aangeeft 
[Lees invoer-stambestand 


Dit is een situatie waarbij het actuele stamrecord niet moet 
worden weggeschreven voordat een nieuw stamrecord wordt inge- 
ingelezen; de 'steeds wanneer! hierboven moet worden gewijzigd: 
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Steeds wanneer ееп stamrecord moet worden ingelezen (dat niet het 
eerste record is) en het niet gaat om inlezen ter wille van een 
verwijdering 

\Schrijf het actuele stamrecord weg. 


Het programma in Appendix A is een voorbeeld van bijwerken 
waarbij een nieuw bestand wordt opgebouwd. 


ANTWOORDEN HOOFDSTUK L 


Paragraaf L1 


1. Zie figuur 38. 


Paragraaf L2 


1. PROCEDURE DIVISION. 
VERWERK-TABEL. 
OPEN INPUT TABEL. 
READ TABEL 
AT END 
DISPLAY "TABELBESTAND LEEG" 
STOP RUN. 
PERFORM VERWERK-TABELREC VARYING TABELSUB FROM 1 BY 1 
UNTIL EB-TABEL = "W" OR TABELSUB GREATER THAN 26. 
CLOSE TABEL. 
IF TABELSUB GREATER THAN 26 
DISPLAY "TABELBESTAND ONGELDIG" 
STOP RUN. 
PERFORM VERWERK-MUT. 
STOP RUN. 
* 
VERWERK-TABELREC. 
MOVE TABELREC TO WS-TABELREC (TABELSUB). 
READ TABEL 
AT END | 
MOVE "W" TO EB-TABEL. 
* 
VERWERK-MUT.. 
OPEN OUTPUT FOUTEN-OVERZICHT. 
MOVE 2 TO REGELTELLER. 
WRITE REGEL FROM KOP-OVERZICHT BEFORE 2. 
OPEN INPUT MUT. 
MOVE "О" TO ЕВ-МОТ. 
READ MUT 
AT END 


143 


L Gestructureerd ontwerpen уап programma's 


|1 Jeeagezed ©} әле8іо frq paoomguy gE ЯППӘОТЯ 


TASAA TAJAN 
-TI VLA -TI VLA 


CIJHƏIZAMNVV 


morem АС 
dVHI9SCTOOH 


LSCIT N3449 


1НО127ЯЯЛО LHƏIZAAAO 


was s Sean QAULNAANLS 


LHOIZUHAO ONVLSAHONLS 


144 Programmeringstechnieken 


MOVE "М" TO ЕВ-МОТ. 
OPEN OUTPUT GELDMUT. 
PERFORM VERWERK-MUTREC UNTIL EB-MUT = "М". 
CLOSE МОТ. 
CLOSE GELDMUT. 
PERFORM PRODUCEER-VOETREGELS-OVERZICHT. 
CLOSE FOUTEN-OVERZICHT. 
* 
VERWERK-MUTREC . 
MOVE SPACES TO FOUTREGEL-2. 
MOVE "М" TO MUTREC-GELDIG. 
IF MUT-CODE NOT = "І" OR "W" OR "V" 
MOVE "*" TO EVT-STER-KOL-2 
MOVE "О" TO MUTREC-GELDIG. 


IF MUTREC-GELDIG = "М" 
WRITE GELDMUTREC FROM MUTREC 
ELSE 
PERFORM PRODUCEER-FOUTEN-GROEP , 
х 
PRODUCEER-VOETREGELS-OVERZICHT . 
WRITE REGEL FROM VOETREGEL-1 BEGORE 
WRITE REGEL FROM VOETREGEL-2 BEFORE 
WRITE REGEL FROM VOETREGEL-3 BEFORE 
WRITE REGEL FROM VOETREGEL-4 BEGORE 


° 


ж 


PRODUCEER-FOUTEN-GROEP , 
ADD 4 TO REGELTELLER. 
PERFORM PRODUCEER-FOUT-REGEL=1 . 
PERFORM PRODUCEER-FOUT-REGEL-2. 
PERFORM PRODUCEER-FOUT-REGEL-3. 
Жж 
PRODUCEER-FOUT-REGEL-1 . 
MOVE МОТ-СОрЕ TO FOUTE-MUT-CODE. 


WRITE REGEL FROM FOUTREGEL-1 BEFORE 1. 
х 
PRODUCEER-FOUT-REGEL-2. 
MOVE MUT-ADRES(2) TO FOUTREGEL-2-ADR. 
WRITE REGEL FROM FOUTREGEL-2 BEFORE 1. 
х 
PRODUCEER-FOUT-REGEL-3. 
MOVE MUT-ADRES(3) TO FOUTREGEL-3 
IF REGELTELLER LESS THAN 63 
WRITE REGEL FROM FOUTREGEL-3 BEFORE 3 
ELSE 
WRITE REGEL FROM FOUTREGEL-3 BEFORE PAGE. 
(Wederom is het bijwerken van het totaal aan voetregels 
genegeerd.) 
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Paragraaf L3 


1. a) Verwerk GROEIPERCENTAGES om OVERZICHT BEVOLKINGSEXPLOSIE 
te produceren 
Tot einde van bestand van GROEPPERCENTAGES doen 
Verwerk GROEIPERCENTAGE 
IDOEN: 'Produceer PAGINA MET RESULTATEN ' 


Produceer PAGINA MET RESULTATEN 
Produceer GROEIPERCENTAGE REGEL 
Herhaal, waarbij decade met 10 oploopt vanaf huidige 
jaar + 10 totdat decade = huidige jaar + 210 of een size 
error optreedt: 

| Ргойџсеег DETAIL REGEL 
Doe 'Produceer FOUT' 


Produceer FOUT 
Als zich een size error heeft voorgedaan 
[Produceer SIZE ERROR REGEL 


b) Bevolkingsexplosie 
Bereken oppervlakte gebied 


Tot einde van bestand doe: 

Lees groeipercentage 

|А16 niet einde van bestand 

| IDoe 'Druk een pagina met resultaten af' 
Stop run 


Druk een pagina met resultaten af 
Stel decade in op huidige jaar + 10, druk kopregels af 


Bereken groeipercentage in decade 
Stel bevolking aan het begin in 
Tot decade = huidige jaar + 210 of een size error 
optreedt, doe 
|Вегекеп nieuwe bevolking 
[А15 zich een size error voordoet 
| [Druk foutboodschap af 
| Anders 
| \Bereken de nieuwe dichtheid 
| [А15 zich een size error voordoet 
| | [Druk fout-boodschap af 
| lAnders 
| | \Druk een regel met resultaten af 
ІУоер 10 aan decade toe 


Het verschil is dat a) een langs analytische weg verkregen 
ontwerp voor een raamwerkprogramma is waarin geen poging 
is gedaan om alle doeleinden te omvatten. Het komt overeen 
met het ontwerp van een programmeur, aan wie een ongestruc- 
tureerde specificatie is overhandigd. Versie b) kan de 
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2 еп 


gestructureerde programmaspecificatie van de analist zijn - 
maar deze versie behoeft nog steeds enige uitbreiding om een 
volledige specificatie te zijn (bijvoorbeeld hoe moet de opper- 
vlakte worden berekend?) 

Aangezien de size error de herhaling in versie b) 
beëindigt, is er heel wat voor te zeggen dat de bewerking 
'Voeg 10 aan decade їое! beter kan worden geplaatst onder de 
besturing van de laatste 'Anders'; er is geen noodzaak de 
decade aan te passen als zich een fout heeft voorgedaan. 
Maar omdat de status van 'decade' niet is voorgeschreven als 
zich een fout voordoet, is het niet echt fout zoals het er nu 
staat en natuurlijk sluit het nauwer aan bij PERFORM... 
VARYING...UNTIL. 


3 
Haal een collega om uw antwoord te controleren. 


М DOCUMENTATIE 


М1 PROGRAMMADOCUMENTATIE 


Twee hoofddocumenten laten zien wat een programma in detail doet: 


de programmaspecificatie, met bestands- en recordbeschrijvin- 
gen, met goed-gestructureerde beschrijvingen in 
het Nederlands van de werking van procedures en 
met beslissingstabellen of een gelijkwaardig mecha- 
nisme om de bedoeling van een programma weer te 
geven en 

de programma-uitlijsting. 


Het eerste is een ontwerpdocument: dit wordt gemaakt voordat 
het coderen begint. Het wordt vaak door de systeemanalist en niet 
door de programmeur gemaakt. Hoewel bijna altijd wordt geëist dat 
zulke documenten worden bijgewerkt om de huidige staat van het 
programma weer te geven, wordt dit bijwerken dikwijls 'na de gebeur- 
їепіѕ' gedaan, waardoor er verschil kan bestaan tussen dit document 
en de uitlijsting. De uitlijsting is daarom het enige werkelijk betrouw- 
bare document van wat het programma presteert en programmeurs 
wenden zich dan ook tot dit document wanneer zij een wijziging of 
verbetering van programmadetails overwegen. 

Daarom moet de frontlijn van documentatie de programma-uitlijs- 
ting zijn. Niet alleen is de uitlijsting de vertrouwenwekkendste van 
de beschikbare documenten, maar hij wordt bovendien relatief moei- 
teloos en automatisch bijgewerkt door de programmeur. 

Hoewel het gemakkelijk is programmadocumentatie te rechtvaar- 
digen als hulpmiddel bij latere programmawijzigingen, is er een ander 
motief dat nog meer kracht heeft, maar minder voor de hand ligt. 
Een programmeur die op een consistente wijze zorgt voor documenta- 
tie, zoals we hier beschreven hebben, verkeert in een werksituatie 
die veel minder ontvankelijk is voor fouten dan zijn collega die niet 
of slecht documenteert. Aangezien het vaak onmogelijk is een pro- 
gramma na het ontwerp ervan volledig te testen, is het van wezenlijk 
belang dat de ontwikkelingsmethodiek kwaliteit bezit. De documenta- 
tie is een hulpmiddel om het doel steeds helder in het oog te blijven 
houden bij het weergeven van het probleem in programmacode. 
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Voor kleine tot middelgrote programma's bestaat ег een zeer 
goede strategie voor de ontwikkeling van programma's. Deze bestaat 
uit drie fasen: 


1. Stel een gedetailleerde beschrijving in gestructureerd Neder- 
lands op en laat een collega deze lezen en in details goedkeuren. 

2. Codeer systematisch op basis van het gestructureerde Neder- 
lands en laat een collega deze codering lezen en in details goed- 
keuren. 

3. Test het programma systematisch, zoals beschreven zal worden 


in hoofdstuk N en laat een collega de omvang van de test en de 
testresultaten zien en goedkeuren. 


Bij grote programma's kan het wenselijk zijn een in gestructureerd 
Nederlands gestelde specificatie op een nog hoger niveau te maken, 
waarbij misschien programma's worden beschreven die afzonderlijk 
kunnen worden gecompileerd en getest om daarna aan elkaar gekop- 
peld te worden (hoofdstuk U). Dit moet ook worden gecontroleerd 
voordat er een systematische uitwerking in meer gedetailleerde speci- 
ficaties van plaatsvindt. 

Een recht-toe-recht-aan geschreven COBOL-programma levert 
echter geen uitlijsting op die adequaat voldoet aan deze extra verkla- 
rende behoeften die we eraan willen opleggen. De volgende paragra- 
fen houden zich bezig met aanwijzingen om de uitlijsting zo te wijzi- 
gen dat aan deze behoeften tegemoet wordt gekomen. 


M2 DOCUMENTATIE IN DE IDENTIFICATION DIVISION 


Het is aan te bevelen de volgende informatie aan het begin van een 
programma op te nemen, zodat die ook op de uitlijsting verschijnt : 


1. de plaats van dit programma in de reeks 

2. de globale doelen van het programma 

3. het globale ontwerp van het programma 

4. de logica van het programma in gewone taal. 


Als er een goede standaard voor systeemdocumentatie van kracht is 

(zie bijvoorbeeld hoofdstukken 6 en 12 van Systems Analysis, uitge- 
geven door Edward Arnold in de UK), kan voor de eerste twee wor- 
den volstaan met verwijzingen naar andere documenten. Zo niet, 

dan kunnen we als volgt een eenvoudig verslag opnemen: 


* INVOER — ARTIKEL MUTATIEBESTAND "ARTMUT' GEPRODUCEERD 
* DOOR PROGRAMMA PAROO2VET 
* - OUD ARTIKEL STAMBESTAND "АЕТ5ТАМ" EERDER 


* UITGEVOERD DOOR DIT PROGRAMMA 
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* UITVOER - NIEUW ARTIKEL STAMBESTAND "АЕТ5ТАМ" 

* - VERANDERINGENBESTAND "ARTWIJZ', DAT VERDER 

* WORDT VERWERKT DOOR PROGRAMMA PAROO4AFDRUK 

* VERWERKING - HET ARTMUT BESTAND BEVAT WIJZIGINGEN, 

* VERWIJDERINGEN ЕМ INVOEGINGEN EN IS 
GESORTEERD NAAR VOLGORDE VAN ARTIKELNUMMER. 
HET GESORTEERDE BESTAND WORDT GEBRUIKT OM 
HET OUDE ARTIKELSTAMBESTAND BIJ TE WERKEN 
MET ALS RESULTAAT EEN NIEUW ARTIKELSTAM- 
BESTAND. FOUTEN TIJDENS HET BIJWERKEN VER- 
OORZAAKT DOORDAT TRANSACTIERECORDS NIET OVER- 
EENSTEMMEN MET RECORDS VAN HET STAMBESTAND 
WORDEN UITGELIJST OP DE REGELDRUKKER, TERWIJL 
GEACCEPTEERDE TRANSACTIES WORDEN VASTGELEGD 
IN HET VERANDERINGENBESTAND, TEZAMEN MET DE 
NIEUWE STAAT VAN HET STAMRECORD. DEZE GEGE- 
VENS WORDEN IN EEN VOLGEND PROGRAMMA AFGE- 
DRUKT. EEN CONTROLETELLING VAN DE GEWIJZIGDE, 
VERWIJDERDE EN INGEVOEGDE RECORDS WORDT BIJ- 
GEHOUDEN, EVENALS EEN TELLING VAN DE RECORDS 
IN HET OUDE EN NIEUWE STAMBESTAND. DEZE 
TOTALEN WORDEN AFGEDRUKT BIJ HET EINDE VAN 
DE RUN. 


* жж ok k k k k k k k ж k k ж ж ok ok 


Aan de laatste twee behoeften: de weergave van de globale logica en 
het ontwerp van het programma, kan worden voldaan door de speci- 
ficatie in gestructureerd Nederlands op te nemen. 

Als een gedeelte van de logica is beschreven door beslissings- 
tabellen of statustabellen (zie hoofdstuk P), neemt men deze gewoon- 
lijk ook in de uitlijsting op. 

Wanneer het gehele proces is samengesteld uit afzonderlijk 
gecompileerde programma's (hoofdstuk U), behoren de naam en het 
doel van ieder programma uitgelijst te worden in het hoofdprogram- 
ma. Een ander hulpmiddel is te laten zien hoe het programma is 
georganiseerd in een hiërarchie van paragrafen en sections — zie 
paragraaf M4. 


Opgaven 


1. De programmeur kan de compiler instrueren om naar de kop van 
een nieuwe pagina van de uitlijsting te gaan door een schuine 
streep "/" in kolom 7 te plaatsen. Waarom is dit zinvol wanneer 
de Identification Division ор de hier beschreven wijze van сот- 
mentaar moet worden voorzien? 


2. Пе meeste automatiseringsafdelingen hebben een standaardme- 
thode voor het vaststellen van programmanamen ingevoerd. De 
bedoeling hiervan is (a) te verzekeren dat ieder programma een 
eigen naam heeft en (b) het systeem waartoe het programma 
behoort te identificeren. Waarom? 
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3. Wat is de praktische waarde van het opnemen van de paragrafen 
AUTHOR en DATE-COMPILED? 


M3 DOCUMENTATIE IN DE DATA DIVISION 


Documentatie іп de Data Division concentreert zich rondom naamaf- 

spraken en aanvullende informatie. 
Naamafspraken hebben twee doeleinden: 

1. Bevorderen van de plaatsbepaling van een іп de Data Division 
aanwezige beschrijving van een specifieke gegevensnaam wan- 
neer deze in de Procedure Division wordt tegengekomen, bij- 
voorbeeld om te kunnen zien wat de PICTURE is. 

2. Betekenis geven aan een gegeven. 


Een plezierig en logisch stelsel dat beide doeleinden verwezenlijkt 
laat iedere gegevensnaam door een voorvoegsel van twee letters 
voorafgaan. Voor kleine programma's is dit wat overdreven, maar 
als programma's groter worden begint het zijn nut af te werpen. De 
eerste letter laat zien in welke section van de Data Division het ele- 
ment wordt beschreven: 


F = File Section 
R = Report Section 
W = Working-Storage Section, etc. 


De tweede letter van het voorvoegsel wordt gebruikt om het record 
waarin het gegevenselement staat te identificeren. De records worden 
van een letter voorzien in de volgorde waarin ze worden gecodeerd. 
Een volledig voorbeeld staat in Appendix A. 

De hier bedoelde naamafspraken veronderstellen dat de pro- 
grammeur vrijheid van handelen heeft om de gegevenselementen van 
een naam te voorzien. In een goed-georganiseerde afdeling gegevens- 
verwerking kunnen de systeemanalisten een woordenboek of lijst van 
alle in het systeem gebruikte gegevens hebben aangelegd. Ze kunnen 
verder de namen van alle bestanden, records en gegevenselementen 
hebben beschreven. Als dit het geval is, dient de programmeur 
dezelfde namen in de File Section te gebruiken. Als er dubbele namen 
ontstaan als gevolg van deze werkwijze (bijvoorbeeld wanneer het 
wijzigen van een sequentieel stambestand het opbouwen van een 
nieuw stambestand betekent), is een aanvaardbare oplossing: het 
toevoegen van een achtervoegsel -І of -U als onderscheiding tussen 
invoer- en uitvoergegevenselementen. 

In de Working-Storage Section zullen sommige records natuur- 
lijk in samenhang met een invoer- of uitvoerrecordtype ontstaan. 

De overblijvende gegevenselementen moeten door de programmeur 
worden georganiseerd in records. De volgende adviezen zullen dit 


М Documentatie 151 


proces vergemakkelijken : 

1. Zet іп een gemeenschappelijk record al die gegevenselementen 
waarvan de bedoeling is dat ze globaal toegankelijk zijn in het 
programma, dat wil zeggen elementen die worden gebruikt in 
de hoofdprocedure en subroutines. 

2. Zet in een gemeenschappelijk record al die gegevenselementen 
die als parameters worden meegegeven bij de aanroep van een 
subroutine (dat wil zeggen één record voor iedere PERFORM 
die een of meer parameters meegeeft). 

3. Zet іп een gemeenschappelijk record al die gegevenselementen 
die plaatselijk in een subroutine horen, dat wil zeggen alleen 
binnen de subroutine worden gebruikt (één record per sub- 
routine met één of meer plaatselijke gegevenselementen). 


Aan de gegevens wordt betekenis gegeven door de keuze van goede 
namen, hetgeen grotendeels een kwestie van gezond verstand is. In 
het algemeen worden de gegevensnamen hierdoor langer, maar het 
is toch zonneklaar dat zelfs VERSCHULDIGDE-DATUM-VAN- 
VOLGENDE-BETALING moet worden verkozen boven VDVVB. 

Een extra voordeel van het gebruik van de voorvoegsels is dat 
het per ongeluk gebruiken van gereserveerde woorden wordt verme- 
den. Een extra voordeel van het gebruik van zinvolle namen is dat 
foutieve spelling in de Procedure Division minder waarschijnlijk is. 


Aanvullende informatie moet het invullen van informatieleemtes die 

COBOL openlaat bevorderen. De beschrijvingen in de Data Division 

kunnen ons wel van een element zeggen: 

zijn omvang en type (PICTURE) 

zijn beginwaarde (VALUE) 

zijn interne geheugenformaat (USAGE) 

zijn doel (als we een zinvolle naam hebben bedacht) 

de betekenis van zijn waarde als het een indicator of code is 

(als u conditienamen gebruikt, zie $ Q4) 

6. waardoor het wordt geïndiceerd (subscripted) als het om 
een tabel gaat (als u INDEXED BY gebruikt, zie $ O5). 


сл > Go м н 
° ° ° ° ° 


Wat de COBOL-beschrijvingen ons niet zeggen is: 

1. zijn doel (als dit niet volledig uit de naam is af te lezen) 

2. de reeks waarden die het kan hebben (als deze kleiner is 
dan het totale bereik dat door de PICTURE wordt aangegeven) 

3. de betekenis van zijn waarden als het om een indicator of 
code gaat en u geen conditienamen hebt gebruikt 

4, waardoor het wordt geïndiceerd (subscripted) als het om 
een tabel gaat (tenzij de INDEXED BY-passage is gebruikt). 


Deze aanvullende informatie kan worden gegeven in een commentaar 
dat onmiddellijk volgt op de gegevensbeschrijving. Het raamwerk 
voor dit commentaar kan zijn: 
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х doel 

х BEREIK reeks van waarden 

xcode BETEKENT betekenis (zo vaak als nodig is) 
х GEINDICEERD DOOR indexnaam. 


De programmeur behoort het schrijven van dit commentaar te over- 
wegen na iedere gegevensbeschrijving waarbij hij natuurlijk de 
onderdelen die niet van toepassing of overbodig zijn weglaat. Als 
bijvoorbeeld het doel van het element duidelijk is op grond van zijn 
naam, als het de gehele reeks waarden kan aannemen die door zijn 
picture worden geïmpliceerd, als het geen code of indicator is, als 
er geen geldigheidstesten mee worden uitgevoerd en als het geen 
tabel is, kan het gehele commentaar achterwege blijven. Het voor- 
beeldprogramma in Appendix A laat deze methode in de praktijk zien. 
Het enige commentaar dat daarin nodig is betreft WA-FOUTMELDIN- 
GEN waarvan het gebruik iets complexer is dan normaal. Als er een 
data dictionary in gebruik is waarin het doel, het bereik van gege- 
venselementen etc. staan vermeld, hoeft deze informatie natuurlijk 
niet ook nog eens in het programma opgenomen te worden. 


Opgave 


1. Stel de gegevensbeschrijving en het commentaar op voor een 
tabel van 12 namen van maanden van 3 tekens in working 
storage, die moet worden gebruikt om een numerieke maand te 
vertalen, waarna deze vertaling op de kop van een formulier 
wordt afgedrukt. 


M4 DOCUMENTATIE IN DE PROCEDURE DIVISION 


De belangrijkste aanwijzingen voor het leesgemak zijn: 

1. schrijf één opdracht per regel 

2. geef de paragraafnaam een eigen regel 

3. volg de afspraken voor het inspringen bij conditionele 
opdrachten op 

4. als het nesten meer dan 3 à 4 niveaus diep gaat, overweeg 
in plaats hiervan dan het gebruik van een vooruitspringen- 
de GO TO of een out-of-line subroutine; of neem commen- 
taar op waarin de analyse, die aanleiding gaf tot de zo diep 
geneste opdrachten, wordt weergegeven 

9. gebruik lege regels om de presentatie te verbeteren, bijvoor- 
beeld om blokken van paragrafen die logisch met elkaar 
zijn verbonden te identificeren 

6. gebruik paragraaafnamen die de procedures in de paragraaf 
beschrijven | 
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7. gebruik een voorvoegsel bij ееп procedurenaam om de plaats 
van de procedure te helpen bepalen. 


Een goed voorvoegselsysteem voor procedures in een gestructureerd 
programma maakt gebruik van een voorvoegsel van twee tekens. Het 
eerst teken is een letter die het niveau aangeeft waarop de paragraaf, 
het blok met paragrafen of de section wordt aangeroepen. De hoofd- 
procedure staat op niveau A en deze voert met behulp van PERFORM 
procedures op niveau В uit. Een procedure op niveau С wordt аап- 
geroepen door een procedure op niveau B, enz. Het tweede teken is 
een rangordegetal dat samen met het eerste teken de procedure 
uniek identificeert en tevens helpt de procedure te lokaliseren in 
een grote uitlijsting. De procedures moeten worden gecodeerd in de 
uitlijsting op volgorde van hun voorvoegsels. Als een procedureblok 
bestaat uit een section of groep van paragrafen, dienen alle paragra- 
fen en dat blok hetzelfde voorvoegsel te krijgen. 

Zo zal in een programma, waarin geen enkele procedure opnieuw 
wordt gebruikt op een andere plaats, de hiërarchie van de program- 
mabesturing altijd volgens deze lijnen verlopen: 


A 
В1 
С1 


Сп 
В2 
Сп+1 


Cn+m 
B3 
Cn+m+1 


B4 


Wanneer een procedure wel opnieuw wordt gebruikt, adviseren we 
om deze te coderen op een niveau dat overeenkomt met het gebruik 
op het hoogste niveau ervan. Het voorvoegsel dat aan de procedure 
zou worden toegekend bij gebruik in het andere geval, moet worden 
weggelaten. Dit klinkt een tikje ingewikkeld, maar ik weet zeker dat 
u, als u het probeert, het een handige oplossing vindt. 

Tegen het hernieuwd gebruik van procedures bestaat het vol- 
gende argument. Een opnieuw gebruikte procedure wordt in tenmin- 
ste twee verschillende contexten gebruikt. Als de procedure is gewij- 
zigd in één van deze contexten, kan de wijziging deze procedure 
verbasteren in de andere context. Procedures behoren òf te worden 
gedupliceerd, òf de documentatie behoort het hernieuwde gebruik 
duidelijk te maken. 
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De hiërarchie van de besturing moet worden gedocumenteerd іп 
het commentaar in de Identification Section om het programma-onder- 
houd te vergemakkelijken. Dit kan worden bereikt door het eenvou- 
dig uitlijsten van de namen van procedureblokken en deze te laten 
inspringen overeenkomstig hun niveau. Het is aan te bevelen de 
voorvoegsels, die zijn weggelaten bij de procedures in verband met 
hernieuwd gebruik, nu wel op te nemen met een verwijzing naar de 
plaats waar de codering van deze procedure staat. Het programma 
in Appendix A geeft een voorbeeld van deze aanpak. 


Opgave 


1. Leid voorvoegsels voor de procedurenamen af uit het program- 
ma dat als antwoord hoort bij opgave 1 van paragraaf 1.2. 


ANTWOORDEN HOOFSTUK M 


Paragraaf M2 


1. De uitlijsting kan zodanig worden ingericht dat ieder belangrijk 
nieuw onderwerp op een nieuwe pagina begint. Ook kan het 
splitsen van een beslissingstabel of een specificatie in gestruc- 
tureerd Nederlands over twee pagina's worden vermeden. 

2. (a) Ieder programma moet een eigen naam hebben zodat het kan 
worden geplaatst in en opgehaald uit de bibliotheek met doel- 
taalprogramma's; zie hoofdstuk U. 

(b) De andere programma's die tot het systeem behoren kunnen 
gemakkelijk worden geïdentificeerd en gelokaliseerd als de uit- 
lijstingen worden gerangschikt in volgorde van programmanaam. 
Dit kan nuttig zijn bij het begrijpen van de programma-uitlijs- 
ting of het volgen van de consequenties van een wijziging. 

3. AUTHOR: Het kan handig zijn te weten wie de oorspronkelijke 
programmeur is als het programma verkeerd loopt of wijziging 
behoeft. 

DATE-COMPILED: Als meer dan één versie van de uitlijsting is 
geregistreerd, kan dit de actuele versie identificeren. 


Paragraaf M3 
1. 03 WD-TABEL-INHOUD VALUE etc. 
05 WD-ALPHA-MAAND OCCURS 12 TIMES PICTURE XXX. 
* WORDT GEBRUIKT OM EEN NUMERIEK WEERGEGEVEN MAAND ОМ 


* 


TE ZETTEN T.B.V. DE KOP VAN НЕТ OVERZICHT; 
ж GEINDICEERD DOOR FC-NUMERIEKE-MAAND 
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1. Al-VERWERK-TABEL 
B1-VERWERK-TABELREC 
( B2-VERWERK-MUT 
C1-VERWERK-MUTREC 
D1-PRODUCEER-FOUTEN-GROEP 
E 1 -PRODUCEER-FOUT-REGEL-1 
E2-PRODUCEER-FOUT-REGEL-2 
E3-PRODUCEER-FOUT-REGEL-3 
C2-PRODUCEER-VOETREGELS-OVERZICHT 


М HET TESTEN МАМ 
PROGRAMMA'S 


N1 DOEL VAN FUNCTIONEEL TESTEN 


Het testen van computerprocedures kan vanuit drie gezichtspunten 
worden bekeken: dat van de gebruiker, de analist en de program- 
meur. 

De gebruiker wil vaststellen dat het programma goed aansluit 
ор de eisen van zijn organisatie. De gebruiker is de enige die uit- 
eindelijk kan beoordelen of het programma nu de gewenste resultaten 
produceert, omdat hij de enige is (naar ik aanneem) die afdoend kan 
beslissen wat de 'gewenste resultaten! zijn. 

De systeemanalist heeft getracht de wensen van de gebruiker 
te bevatten, maar hij kan hierin tekort zijn geschoten. Hij zal ernaar 
streven vast te stellen, dat het programma overeenstemt met de 
specificatie die hij de gebruiker heeft helpen produceren en dat het 
programma functioneert zoals was bedoeld, wanneer het wordt 
gedraaid in een reeks andere programma's en menselijke procedures. 

De programmeur heeft getracht de wensen van de systeemana- 
list en gebruiker te bevatten, maar hij kan hierin tekort zijn gescho- 
ten. Hij zal ernaar streven vast te stellen dat het programma func- 
tioneert in overeenstemming met zijn interpretatie van de specificatie. 
Als in de fase van het testen van het programma wordt ontdekt dat 
de specificatie niet klopt, is het zeer veel duurder de fout te corri- 
geren dan als deze was ontdekt ten tijde van de specificatie. 

Deze drie partijen kunnen ook verschillende standpunten heb- 
ben, wanneer het erop aankomt de testgegevens te formuleren. De 
testgegevens worden bepaald om hypothetische fouten uit het pro- 
gramma te halen; iedere partij heeft verschillende beweegredenen 
voor deze hypotheses, zoals hierna blijkt. 

De gebruiker beschouwt het totale informatiesysteem als een 
‘black box'. Zijn keuze van testgegevens spruit geheel voort uit zijn 
begrip van wat belangrijk is voor hem en de organisatie. Hij kiest 
bijvoorbeeld gegevens betreffende zijn belangrijkste klant. Hoewel 
de programmeur geen enkele reden kan bedenken, waarom zijn pro- 
gramma zich bij de belangrijkste klant anders dan voor iedere andere 
klant zou gedragen, behoren de testgegevens van de gebruiker hier- 
om niet te worden afgewezen. Zijn gegevens testen waarschijnlijk de 
situatie waarbij het grootste verlies zou kunnen optreden en dit 
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alleen is al een rechtvaardiging. De gebruiker kan andere geldige 
redenen hebben bij de selectie van testgegevens, bijvoorbeeld: hij 
herinnert zich een gebeurtenis die verleden jaar moeilijkheden 
bezorgde bij het oude systeem en hij vindt dat dezelfde transactie 
moet worden uitgetest in het nieuwe systeem. 

De systeemanalist kan het programma ook als een black box! 
beschouwen, maar hij beschikt waarschijnlijk over een algemeen 
inzicht in computerprogramma's en hij kan een ander soort fout ver- 
onderstellen dan de fouten die de gebruiker of de programmeur zich 
indenken. Hij weet bijvoorbeeld dat nulhoeveelheden of -bedragen 
of lege velden vaak niet worden verwerkt zoals bedoeld is, of dat 
soms de bedoeling in dergelijke situaties niet helder uit de specifi- 
catie voortvloeit. Door de systeemanalist bedachte testgegevens kun- 
nen een waardevolle toevoeging zijn aan die van de gebruiker en 
programmeur. 

De programmeur beschouwt het testen vanuit een volledige ken- 
nis van de bewerkingen van zijn programma. Aangezien hij de exacte 
structuur van het programma kent, verkeert hij in een positie om 
fouten te veronderstellen die zouden ontsnappen aan de aandacht 
van de analist en de gebruiker; bijvoorbeeld: overloop in de varia- 
belen van working storage, overloop van tabellen, foutief reken- 
kundig teken. De testgegevens van de programmeur moeten de soli- 
diteit van het programma onderzoeken door alle uiterste situaties na 
te gaan. Als het correct werkt in de grensgevallen, is het zeer waar- 
schijnlijk (vooral bij programma's in de praktijk) dat het programma 
ook werkt voor alle gevallen daartussen. De gebruiker dient hierin 
te participeren door de correctheid van de resultaten te bekrachti- 
gen, zelfs van resultaten die geproduceerd werden door testgegevens 
van de programmeur. 

Het doel van functioneel testen is het vertrouwen in de functio- 
nele correctheid van het programma te verbeteren. Het is duidelijk 
dat alle drie partijen testgegevens moeten overleggen; de testgege- 
vens van de programmeur vormen slechts één stap op de weg naar 
dit vertrouwen. De programmeur dient zich toe te leggen op het ont- 
werpen van tests in overeenstemming met zijn speciale kennis van 
de programmastructuur (en als de programmeur tegelijk ook de ana- 
list of gebruiker is, moet hij bovendien proberen te denken als ana- 
list of gebruiker). Iedere test moet een nieuw facet van het program- 
ma onderzoeken. Als de programmeur erin slaagt iedere test iets 
anders te laten controleren, zal hij een extra motief hebben om alle 
resultaten te verifiëren. 

Het testen van een programma is een noodzakelijk, maar niet 
voldoende middel om vertrouwen erin te kweken. Een typisch pro- 
gramma uit de praktijk heeft al gauw te maken met een paar honderd- 
duizend verschillende mogelijke uitvoerwaarden en het is volstrekt 
onmogelijk die allemaal te gaan testen. Even belangrijk als het ver- 
trouwen dat voortvloeit uit het testen is het vertrouwen dat ontstaat 
als gevolg van het gebruik van een solide methode van programma- 
ontwerp (zie de hoofdstukken K en L), als gevolg van bureaucontrole 
(desk-checking) en als gevolg van nauwgezette controle door een 
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collega of opdrachtgever van ontwerp en codering (zie paragraaf MI). 

Er zijn formele methoden ontwikkeld om de correctheid van pro- 
gramma's te bewijzen, maar de toepassing van deze methoden is moei- 
lijk en kostbaar in andere dan eenvoudige situaties. Bij afwezigheid 
van een formeel bewijs is een nauwgezette bureaucontrole van de 
programmabewerkingen vereist om informeel overtuigd te raken van 
de correctheid van het programma. Ervaren programmeurs hebben 
er slag van te herkennen, welke delen van het programma niet hele- 
maal helder zijn en zijn in staat mentaal het programma met testge- 
gevens te traceren, waardoor ze de correctheid kunnen overzien. 

Er is een gezonde psychologische basis voor de veronderstel- 
ling dat een gedetailleerde programmacontrole door een collega fou- 
ten aan het licht kan brengen die aan de aandacht van de oorspron- 
kelijke programmeur waren ontsnapt. Deze veronderstelling wordt 
ook gesteund door experimenteel onderzoek. De oorspronkelijke pro- 
grammeur raakt gefixeerd op één bepaalde interpretatie van het pro- 
gramma, waarvan hij moeilijk afstand kan nemen. Een nieuwe geest 
kent niet dezelfde beperking. 


Opgave 


1. Wanneer een test een fout in een programma aan het licht 
brengt en u herstelt die fout, is uw vertrouwen in het program- 
ma dan toegenomen of juist verminderd? 


N2 MINIMAAL-GRONDIG TESTEN 


De programmeur kan een programma niet 'volledig' testen, alsof het 
een black box zou zijn, aangezien dat zou inhouden dat iedere moge- 
lijke combinatie van invoergegevenswaarden in iedere mogelijke 
opeenvolging aan het programma zou moeten worden aangeboden. 
Zelfs voor heel gewone programma's is dit een enorm aantal. 

Er is een streefniveau van testen vereist dat in de praktijk 
kan worden gehaald en een redelijke mate van betrouwbaarheid ver- 
schaft: een 'grondige' test. Hoewel ik de voorkeur eraan geef niet 
exact aan te geven wat wordt bedoeld met een 'grondige'! test, Кап 
ik wel een minimaal-grondige test definiëren en andere testmogelijk- 
heden voor een bepaald programma naar voren brengen. Een grondige 
test kan dan vrij vaag worden gedefinieerd als een minimaal-grondige 
test opgesteld door de programmeur tezamen met een selectie van 
tests opgesteld door de programmeur, analist en gebruiker. 

Een minimaal-grondige test is een test zodanig dat iedere enkel- 
voudige conditie in het programma wordt uitgevoerd in beide waar- 
den ervan (waar en onwaar) waar dat mogelijk is. 'Waar dat mogelijk 
15! is vereist, omdat er in het programma condities kunnen zijn opge- 
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nomen waarvan één der waarden niet kan optreden bij welke invoer- 
gegevens dan ook. De oorzaak van deze onmogelijkheid kan òf een 
logische tegenstrijdigheid zijn òf het gevolg zijn van de praktische 
onmogelijkheid om de vereiste hoeveelheid gegevens aan te leveren. 
Een voorbeeld is te zien in paragraaf K4, waar een defensieve 
SIZE ERROR-passage werd toegevoegd aan een COMPUTE-instructie. 
Er is geen bekende invoerwaarde die de size error zal veroorzaken; 
de SIZE ERROR-passage vloeit voort uit een soort harnas-filosofie. 

Een soortgelijke situatie treedt een enkele maal op wanneer de 
programmeur een logische fout heeft gemaakt, waardoor een stukje 
van de codering niet te bereiken is; een poging om minimaal-grondig 
te testen zal dergelijke fouten aan het licht brengen. Een andere 
situatie doet zich voor, wanneer een programma velden totaliseert 
van records waarvan het aantal dat aanwezig is in een bestand niet 
is gespecificeerd. De programmeur kan de omvang van het totaal- 
veld zodanig instellen dat hij denkt dat de mogelijkheid van het 
optreden van een size error in de praktijk is uitgesloten. Maar omdat 
er geen omvang van het totaal-veld bestaat die de theoretische 
mogelijkheid van overloop uitsluit, is het terecht om een SIZE 
ERROR-passage op te nemen, in hoofdzaak om eventuele logische 
fouten op te sporen. De conditie: size error true die het gevolg is 
van het opnemen van deze passage kan ook worden gezien als voort- 
vloeiende uit een onmogelijke verzameling invoergegevens. Minimaal- 
grondig testen, zoals hierboven gedefinieerd, houdt geen rekening 
met dergelijke uitzonderlijke situaties, maar garandeert dat er geen 
enkele instructie in het programma is die niet minimaal één keer tij- 
dens het testen wordt uitgevoerd. Merk op dat ‘enkelvoudige condi- 
tie! in de definitie conditionele passages zoals SIZE ERROR evenals 
condities іп IF-zinnen omvat. ` 

Als eenzelfde conditie op meer dan één plaats verschijnt, moet 
ieder vóórkomen daarvan worden getest. We kunnen de verzameling 
testsituaties creëren door een T of een O, die aangeeft wat de 
waarde is, te plaatsen bij iedere defensieve conditie waarvoor geen 
test kan worden gecreëerd. Specificeer vervolgens testinvoer en 
plaats een T of een O bij iedere daardoor geteste conditie om de poot 
aan te tonen die de test de computer zal doen nemen. Let nu op 
iedere conditie die nog niet zowel een T als een O heeft en specifi- 
ceer een nieuwe test die de conditie zal bereiken en tot gevolg heeft 
dat de ongeteste poot wordt genomen. Plaats nu opnieuw een T of 
een O bij alle niet al zo aangeduide condities die nu zijn beproefd 
door de tests. Ga hiermee door totdat alle condities zowel een T als 
een O hebben. Leg bij iedere gecreëerde testsituatie uw voorspelling 
van het resultaat vast. 

Soms kan een conditie in een programma niet worden getest 
zonder meer testgegevens dan u op dit ogenblik van plan was in 
te voeren, bijvoorbeeld pagina-overloop op een grote pagina. Er kan 
dan een interim-test worden uitgevoerd door een passende wijziging 
van de conditie, bijvoorbeeld door het aantal regels per pagina te 
verminderen. Toch moet het programma worden getest op de eigen- 
lijke conditie, voordat het uiteindelijk voor produktiedoeleinden 
wordt geaccepteerd. 
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Ордауеп 


1. Specificeer minimaal-grondige tests voor de eerste section van 
het valideringsprogramma waarvan de Procedure Division wordt 
geschetst in paragraaf L2 (de opmaak van de records wordt 
gegeven in paragraaf J3). Een leeg MUT-bestand zal volstaan 
voor deze opgave. 


2. Ное kunt u het bedenken van records уап 800 tekens vermij- 
den tijdens de allereerste testfase уап het GEDICHT -programma 
(Appendix B)? 


N3 ANDERE TESTS 


Een andere gedachte betreffende het opzetten van testsituaties, 
waarbij men de programmastructuur kent, bestaat in het onderzoeken 
van het programma met minimum- en maximumwaarden voor de invoer- 
gegevens en minimum- en maximumwaarden bij het testen van de 
condities. Het argument hierachter is dat het programma, als het 
functioneert bij deze extreme waarden, waarschijnlijk ook functio- 
neert voor alle situaties daartussen, omdat de meeste programma's 

in de praktijk een regelmatige of monotone (technisch gesproken) 
verwerking kennen. 

In de praktijk is het moeilijk deze gedachte tot het uiterste 
door te voeren en bovendien blijkt het doorvoeren ervan niet altijd 
het vertrouwen te vergroten. Bijvoorbeeld: size errors hebben 
gewoonlijk een abnormale beëindiging in programma's in de praktijk 
tot gevolg. Als dat zo is, lijkt het niet zo zinnig de size error con- 
dities te testen met waarden die nu juist alleen maar een size error 
veroorzaken en met waarden die de grootst mogelijke size error ver- 
roorzaken. Toch blijkt het een tamelijk algemene regel te zijn om 
het gebruik van maximum/minimumwaarden in overweging te nemen 
en iedere situatie op zichzelf te beoordelen. 

Om extreme testsituaties te produceren moet u ieder numeriek 
veld in de invoerrecordindelingen onderzoeken. Maak dan tests 
waarin ieder van deze numerieke velden de kleinste en grootste 
waarden krijgt die volgens de definitie mogelijk zijn. Dikwijls zullen 
dit de waarden zijn die toegestaan worden door de PICTURE van het 
element (bijvoorbeeld А PIC 599; kleinste waarde уап А is -99, 
grootste waarde van А is +99). Soms worden resultaten als onbe: 
paald' gespecificeerd, indien invoerwaarden buiten een zeker gebied 
gaan (bijvoorbeeld doordat een eerder programma heeft gevalideerd 
of de gegevens binnen dat gebied blijven). In dit geval moet u de 
kleinste en grootste waarde kiezen in het gebied waarvoor de resul- 
taten zijn gedefinieerd. Onderzoek nu iedere vergelijkingsconditie 
voor numerieke gegevens in het programma en overtuig u ervan dat 
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testsituaties worden opgenomen die aanleiding geven tot de kleinste 

en grootste waarde die de conditie waar maken en de kleinste en 

grootste waarde die de conditie onwaar maken (bijvoorbeeld IF A 

GREATER THAN 50; testsituaties voor А = -99, А = 50, А = БІ, 

А = +99). Wanneer de vergelijkingsconditie 'gelijkheid' inhoudt, bij- 

voorbeeld IF A = 50, moet er een testsituatie zijn waarbij A = 50; het 

ongelijke resultaat kan worden getest met behulp van minimum- en 

maximumwaarden van A. 

Wanneer de conditie een lusbeëindiger (bijvoorbeeld een teller) 
is, bestaat er gewoonlijk slechts één waarde die kan worden bedacht 
om de conditie te beëindigen. Het zij zo. 

Andere soorten tests om in overweging te nemen zijn die waar- 
bij de volgende fouten aan het lieht kunnen komen: 

Nulfouten. Testgegevens waarin de numerieke invoer nul is, 

moeten worden ingesloten. Bekijk ook niet-nul zijnde testgege- 

vens, die een nulresultaat opleveren, bijvoorbeeld transacties 
die een rekeningsaldo van nul opleveren. 

2. _Overloopfouten. Eventuele overloop van numerieke velden, 
strings, tabellen of bestandsruimte. 

3. Fouten met betrekking tot lege bestanden. Als het besturings- 
systeem de invoer van bestanden zonder records toestaat, han- 
delt het programma deze situatie dan correct af? 

4, Fouten met betrekking tot de opeenvolging van situaties. Als 
de behandeling van het ene invoerrecord afhankelijk is van 
hoe het vorige record werd verwerkt, of als verschillende 
recordtypes bestaan in de invoer, bekijk dan de omzettingen. 

9. Fouten waarbij het bestand niet past. Bijvoorbeeld: een mutatie 
waarvoor geen stam aanwezig is. 

6. Einde-van-bestand fouten. Vooral wanneer het bijwerken van 
een stambestand het opbouwen van een nieuw stambestand 
inhoudt, dient een test te worden opgenomen om te garanderen 
dat invoegingen vóór het begin van de oude stam en na het 
einde van de oude stam evenals invoegingen binnen de oude 
stam correct worden afgehandeld. Gelijke aandacht moet worden 
gegeven aan verwijderingen, vooral een verwijdering van het 
laatste record in de oude stam. Dezelfde soort filosofie kan van 
toepassing zijn op sommige bewerkingen met tabellen. 

T. _Afrondingsfouten. Vooral van belang bij iedere soort berekening 
van samengestelde interest, omdat onvoldoende nauwkeurigheid 
in working storage-variabelen kan leiden tot een fout in een 
betekenisvol cijfer van het resultaat. De test moet de langste 
periode van samenstelling beslaan en de resultaten moeten met 
de hand worden gecontroleerd of met een calculator (maar pas 
op: vele goedkope calculators zijn onnauwkeurig, wanneer 
nauwkeurigheid van vele cijfers vereist is). 

8. Cyclusfouten. Wanneer een uitvoerbestand opnieuw moet worden 
ingevoerd in hetzelfde programma bij de volgende uitvoering, 
moet deze cyclus minimaal één keer worden getest. 


162 _Programmeringstechnieken 


Opgave 


1. Bedenk de testgegevens voor het bevolkingsexplosie-programma 
(Appendix B). 


N4 ZICHZELF-CONTROLERENDE PROGRAMMA'S 


Een extra methode is het programma zo te ontwerpen dat het zichzelf 
controleert. Het idee is de verkrijging van de resultaten door middel 
van twee verschillende methoden als een controle op de programma- 
logica. Dit is hetzelfde idee dat accountants kennen als 'kruistellin- 
сеп'. Hoe dit wordt gedaan hangt sterk af van de precieze aard van 
het programma; hier zijn een paar voorbeelden. 

Veronderstel dat een mutatiebestand kan toevoegen аап of ver- 
wijderen uit een stambestand. Steeds wanneer het programma een 
mutatie leest, voegt het 1 toe aan een mutatieteller, en het voegt 
eveneens, steeds wanneer het een stambestand leest of schrijft, 1 
toe aan een oude of nieuwe stamteller. Op het punt in het programma 
waar het bepaalt dat de mutatie een toevoeging is, voegt het 1 toe 
aan een toevoegingsteller, terwijl het in het andere geval 1 toevoegt 
aan een verwijderingsteller. Aan het einde van het programma соп- 
troleert het of: 
mutatieteller = toevoegingsteller + verwijderingsteller 
en of: 
nieuwe stamteller = oude stamteller + toevoegingsteller - verwijde- 

ringsteller. 

Het is belangrijk dat er geen vertakkingsopdrachten worden 
geschreven tussen de opdracht die de teller ophoogt en de bewerking 
die geteld wordt. 

Een ander voorbeeld: we stellen ons een programma voor dat 
records leest die een waarde en een code bevatten en dat de totalen 
van de waarden per code berekent plus een totaal-generaal. We moe- 
ten de waarde aan het totaal-generaal toevoegen zodra het record is 
gelezen (dat wil zeggen geen vertakkingsopdrachten tussen de READ- 
en deze ADD-opdracht — dit kan betekenen dat we de ADD-opdracht 
conditioneel maken ten opzichte van de READ-opdracht wanneer die 
niet het einde van het bestand heeft ontdekt), en dan vervolgen 
met het toevoegen van de waarde aan het erbij passende totaal per 
code. Aan het einde van het programma moet het alle totalen somme- 
геп en controleren of deze overeenkomen met het totaal-generaal. 
(Deze specifieke controle zou evenwel weinig zin hebben, als u 
gebruik maakt van hogere voorzieningen, zoals de SUM-passage 
beschreven in paragraaf S3.) 

Dit alles mag u overdreven voorkomen, omdat u vindt dat bij 
een eenmaal getest programma zichzelf-controlerende procedures 
overbodig zijn. Maar bedenk dat programma's in de praktijk in het 
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algemeen een lang bestaan hebben en regelmatig worden herzien en 
onderhouden. Uw controleroutine functioneert tevens als een beves- 
tiging dat toekomstige wijzigingen bevredigend zijn aangebracht. 


ANTWOORDEN HOOFDSTUK N 


Paragraaf N1 


1. Rationeel gesproken kunt u in beide richtingen beïnvloed zijn. 
De veiligste filosofie is uw vertrouwen in het programma te ver- 
minderen bij iedere fout die u vindt. Als u meer dan twee of 
drie fouten in een programma aantreft, moet u overwegen het 
vanaf het nulpunt te herschrijven en daarbij een solide methode 
van programma-ontwerp te hanteren. 

__ Misschien verrast dit antwoord u. ІК ken zeker ook een aantal 
programmeurs die de omgekeerde filosofie aanhangen. De kwes- 
tie is dat er een enorm aantal mogelijkheden is waarvan wordt 
verondersteld dat ze correct door het programma worden ver- 
werkt. leder aantal mogelijkheden zou foutief verwerkt kunnen 
worden, maar uw testgegevens kunnen slechts een paar daar- 
van beoordelen. Voordat u gaat testen, heeft u een zekere mate 
van vertrouwen (waarschijnlijkheidsoordeel) dat deze niet- 
geteste mogelijkheden correct worden verwerkt. Iedere door uw 
programma goed doorlopen test draagt er toe bij te bevestigen 
dat het programma goed in elkaar zit en zal uw vertrouwen dat 
de niet-geteste mogelijkheden correct worden verwerkt doen 
toenemen. Omgekeerd: iedere mislukte test draagt er toe bij 

te bevestigen dat het programma niet deugt en behoort uw ver- 
trouwen dat de niet-geteste mogelijkheden correct worden ver- 
werkt, te doen afnemen. 

Dit afgenomen vertrouwen kan gedeeltelijk of geheel worden 
opgeheven door het toegenomen vertrouwen dat verkregen moet 
worden, wanneer de fout is hersteld. Maar er bestaat een reële 
kans dat de programmeur zijn vertrouwen als gevolg hiervan 
meer dan gerechtvaardigd is laat toenemen. Daarom denk ik dat 
het beter is aan de voorzichtige kant te blijven en dit aspect te 
negeren. 


Paragraaf N2 


1. Ве eenvoudige condities in de eerste section zijn (READ TABEL) 
AT END; EB-TABEL = "W"; TABEL-ONGELDIG = "W"; 
TABEL-LEEG = "И"; TABEL-ONGELDIG = "W" (tweede keer). 
Geen onmogelijke waarden. Tests gaan als volgt. 

Eerste run. Leeg bestand TABEL. 
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Resultaten: AT END waar; EB-TABEL = "М" waar; 
TABEL-LEEG = "М" onwaar. 

Voorspeld resultaat: boodschap "TABEL BESTAND LEEG". 
Tweede run. Het bestand TABEL heeft één record bevattende 
A9999999 (de gegevens zijn willekeurig). MUT bestand leeg. 
Niet eerder geteste resultaten: AT END onwaar; 

EB-TABEL = "М" onwaar; TABEL-ONGELDIG = "W" onwaar; 
TABEL-LEEG = "W" onwaar; TABEL-ONGELDIG = "W" (tweede 
keer) onwaar. 

Voorspeld resultaat: overzicht met kop- en voetregels; geen 
ongeldige records, nullen in alle totalen-generaal. 

Derde run. Tabelbestand heeft 27 records met willekeurige 
gegevens. 

Niet eerder geteste resultaten: TABEL-ONGELDIG = "М" waar; 
TABEL-ONGELDIG = "М" (tweede keer) waar. 

Voorspeld resultaat: boodschap "TABEL BESTAND ONGELDIG". 


Reduceer de recordomvang tot een passender maat, bijvoorbeeld 
80 tekens. Reduceer de regellengte tot bijvoorbeeld 60 tekens 
om te voorkomen dat het programma alleen de bijzondere situa- 
tie, waarbij de invoerrecordomvang gelijk was aan de uitvoer- 
recordomvang, afhandelt. Een programma dat op een bevredi- 
gende wijze 80 invoertekens en 60 uitvoertekens behandelt mag 
worden geacht zich goed te gedragen, wanneer deze constanten 
worden gewijzigd in respectievelijk 800 en 80; maar deze ver- 
wachting behoeft natuurlijk nog wel een laatste test. 


Paragraaf N3 


1. 


Test 1: Leeg bestand. 

Test 2 : Drie records. 

0000 

1001 (of ieder ander gegeven dat het minst betekenisvolle cijfer 
gebruikt; voorspel de uiteindelijke bevolking en dichtheid) 

9999 (verwachte size error) 

Beloon uzelf met een hoog cijfer indien u concludeerde dat één 

van de size errors (in òf bevolking òf dichtheid) onmogelijk 

moet zijn. 


О TECHNIEKEN VOOR НЕТ WERKEN 
MET TABELLEN EN GEGEVENS 


O1 INSPECT 


De opdracht INSPECT kan worden gebruikt om bewerkingen uit te 
voeren met de individuele tekens in een gegevenselement. 


ALL 
LEADING 


Veronderstel dat we een veld van zes cijfers hebben met als 
naam NUM en als inhoud ____27. Indien we het aantal beginspaties 
willen bepalen, kunnen we een gegevenselement, laten we zeggen 
SPATIE-AANTAL, definiëren en als volgt het resultaat verkrijgen 
MOVE ZERO TO SPATIE-AANTAL . 

INSPECT NUM TALLYING SPATIE-AANTAL FOR LEADING 5РАСЕ5. 

De INSPECT-opdracht telt het gevonden aantal (in dit geval het aan- 
tal spaties) op bij identifier-2; de programmeur moet dit gegevens- 
element dus de juiste beginwaarde geven. 

De ALL-variatie levert ons een telling van alle literal-1's in het 
veld op, of ze nu aan het begin staan of niet. De BEFORE INITIAL- 
variatie (zie Appendix D) telt het aantal tekens op dat aan literal-1 
voorafgaat. Wanneer we bijvoorbeeld een veld ACHTERNAAM hebben 
met een lengte van 20 tekens, dat iemands achternaam gevolgd door 
spaties bevat, en we willen vastleggen hoe lang de achternaam is, 
dan kunnen we schrijven: 


INSPECT identifier-1 TALLYING identifier-2 FOR } literal-1 


MOVE ZERO TO SPATIE-AANTAL. 
INSPECT ACHTERNAAM TALLYING SPATIE-AANTAL 
FOR CHARACTERS BEFORE INITIAL SPACE. 


Het antwoord zal wederom in SPATIE-AANTAL staan. 

Bij gebruikmaking van de keuzemogelijkheid REPLACING 
(Appendix D), wordt iedere literal-3 vervangen door literal-4. 
Indien NUM ____27 bevat en we coderen 


MOVE ZERO TO SPATIE-AANTAL. 
INSPECT NUM TALLYING LEADING SPACES 
REPLACING LEADING SPACES BY ZEROS, 
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dan zal na afloop SPATIE-AANTAL 4 bevatten en NUM 000027. 

Tellingen en vervangingen kunnen zowel voor als na een bij- 
zondere waarde in het desbetreffende veld worden uitgevoerd; het 
aantal keren dat een bepaalde reeks tekens in het veld voorkomt 
(in tegenstelling tot één enkel teken) kan door de tally worden bij- 
gehouden of vervangen door een andere reeks; meer dan één bewer- 
king met tally of replacing tegelijkertijd is mogelijk. Ik ben niet 
voornemens al deze alternatieven te behandelen, maar ik wil wel een 
speciaal voorbeeld ontvouwen als inleiding op grondgedachten die 
hierna volgen. 

Veronderstel dat we een grote hoeveelheid gegevens ontvangen 
die door een andere computer dan de onze zijn geregistreerd. Com- 
puters van verschillende fabrikanten (of zelfs verschillende compu- 
tertypes van dezelfde fabrikant) kunnen verschillende interne codes 
gebruiken voor de weergave van de tekens. Soms is die weergave 
voor bijna alle tekens verschillend; vaker bestaat de weergave voor 
de meeste tekens uit dezelfde code afgezien van een paar bijzondere 
tekens waarvoor hij verschilt. 

Laten we aannemen dat de gegevens van de andere computer 
een $-teken bevatten, maar dat de code voor $ op de andere machi- 
ne de code voor £ op onze machine is. Wanneer onze computer de 
gegevens leest, zullen alle $-tekens ten onrechte worden gelezen als 
£-tekens. Onze taak bestaat іп de vervanging уап de foutieve £- 
tekens door $-tekens in de code van onze computer; op deze wijze 
beschikken we over de correcte gegevens. 

We kunnen deze taak volbrengen met 
INSPECT INVOER-RECORD REPLACING ALL "£" BY "$". 

Maar een voordeel van de INSPECT-opdracht is de mogelijkheid 
meer dan één teken te vertalen door één opdracht. Veronderstel dat 
ons probleem er als volgt uitziet: 


Gegevens van andere computer Ingelezen door onze computer als 


$ £ 
* ! 
o * 
! ( 
) ? 


Ме kunnen deze gehele vertalingstabel voor de code іп ееп 
enkele INSPECT-opdracht opnemen: 


INSPECT INVOER RECORD 


REPLACING ALL "£" BY "$", "I" By "+", 
пап ВҮ noyu " С ВҮ " ! " 
"т ВҮ 27 "° 4 


(Als een ingrijpende vertaling van gegevens van een geheel afwijken- 
de computer nodig is, kan het beter zijn de CODE-SET voorzieningen 
van COBOL, zo die beschikbaar zijn, toe te passen; raadpleeg hier- 
voor uw manual. CODASYL heeft ook een uitbreiding voorgesteld, nl. 
de INSPECT ... CONVERTING ..., die voor dit soort gevallen moge- 
lijk beter geschikt is.) 
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Opgave 


1. U moet een record UITVOER-REC wegschrijven dat zal worden 
ingelezen door een andere machine. De codes van de twee 
machines zijn dezelfde op de volgende uitzonderingen na: 


Uitvoer van uw machine Ingelezen door andere machine 
+ Š 
= / 
/ * 
# ) 
& ( 
) # 
( & 


Wijzig de gegevens in UITVOER-REC zo, dat ze correct worden 
ingelezen door de andere machine. Deze opgave lijkt eenvoudi- 
ger dan hij is. 


O2 TABELRAADPLEGING 


We zijn de grondgedachte van een tabel al tegengekomen. Hij bestaat 
uit herhaalde gegevenselementen die in een OCCURS-passage worden 
beschreven. 

Laten we het probleem van opgave 1 in paragraaf O1 als voor- 
beeld nemen. De codes die worden uitgevoerd door uw machine zijn 
de doelcodes; de codes in de oorspronkelijke gegevens zijn de bron- 
codes. Met het oog op de vertaling van de broncodes in de doelcodes 
kunnen we de relevante programmagedeeltes als volgt neerschrijven: 


01 REGEL. 
02 TEKEN PICTURE X OCCURS 100 TIMES. 
WORKING-STORAGE SECTION. 
01 TABELLEN. 
02 BRONTABEL VALUE ".;=/*)(#&". 
03 BRONTEKEN PICTURE X OCCURS 9 TIMES. 
02 DOELTABEL VALUE ";.*=/#&)(". 
03 DOELTEKEN PICTURE X OCCURS 9 TIMES. 
01 INDICES COMP SYNC RIGHT. 
02 TEKENTELLER PICTURE 999. 
02 TABELTELLER PICTURE 99. 
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PROCEDURE DIVISION. 


(opdrachten die REGEL van zijn inhoud voorzien) 
PERFORM B1-REGEL-VERTALEN. 


B1-REGEL-VERTALEN. 

PERFORM C1-TEKEN-VERTALEN VARYING 

TEKENTELLER FROM 1 BY 1 UNTIL TEKENTELLER = 101. 
C1-TEKEN-VERTALEN. 

PERFORM D1-VERGELIJKEN VARYING TABELTELLER 

FROM 1 BY 1 UNTIL TEKEN(TEKENTELLER) = 

BRONTEKEN(TABELTELLER) OR TABELTELLER = 10. 

IF TABELTELLER LESS THAN 10 

MOVE DOELTEKEN(TABELTELLER) TO TEKEN(TEKENTELLER). 

D1-VERGELIJKEN. 


D1-VERGELIJKEN is een dummy-paragraaf waarin geen enkele actie 
plaatsvindt. 

Het eerste teken van REGEL wordt vergeleken met het eerste, 
tweede, derde, etc. teken іп BRONTABEL. Als er geen gelijk teken 
wordt gevonden (en dat houdt in dat TABELTELLER de waarde 10 
heeft bereikt), hoeft het teken niet vertaald te worden. Wordt er 
wel een gelijk teken aangetroffen dan wordt het corresponderende 
teken uit DOELTABEL er voor in de plaats gezet. Daarna wordt het 
volgende teken in REGEL bekeken onder de besturing van de eerste 
PERFORM ... VARYING ... en vindt herhaling van het proces 
plaats totdat alle tekens zijn vertaald. 

Er bestaan andere methodes om hetzelfde doel te bereiken. Op 
sommige machines bijvoorbeeld kan de interne code van het te verta- 
len teken in plaats daarvan worden behandeld als een gelijkwaardig 
(binair) getal. Aangezien elke code verschillend is, zullen ze ieder 
aanleiding geven tot een enig getal, dat direct kan worden gebruikt 
als een index om de doelcode uit een tabel op te halen (de doeltabel 
zal de complete tekenverzameling moeten bevatten). 

In paragraaf O5 wordt behandeld hoe tabelraadpleging kan 
plaatsvinden zonder een dummy-paragraaf, indien de SEARCH- 
opdracht beschikbaar is. 


Opgave 


1. (Nogal moeilijk) U leest kaarten die werden geponst op een 
machine die de eerste negen letters van het alfabet heeft geco- 
deerd in uw code 1 t/m 9 en omgekeerd. Bovendien betekent 
de code die u leest als * een reeks van drie nullen op de ande- 
re machine. Het record dat u inleest heeft een lengte van 80 
tekens, maar deze kan toenemen tot 240 tekens na vertaling 
(dat wil zeggen als er alleen maar * zijn). Het vertaalde record 
moet worden ingebouwd in een record van 240 tekens in working 
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storage met als naam NIEUW-REC; de oorspronkelijke kaart 
noemen we IN-REC. 
Schrijf de code om de vertaling tot stand te brengen. 


ОЗ TABELORGANISATIE 


Wanneer in een grote tabel naar elementen wordt gezocht en er moe- 
ten veel elementen worden gevonden, is het duidelijk dat er heel 
wat verwerkingstijd in dat zoekproces gaat zitten. Veronderstel dat 
we 50.000 records, die ieder voor zich 1000 tekens bevatten, uit 
een andere in onze eigen computercode moeten vertalen. Bij gebruik 
van het tabelonderzoek zoals beschreven in paragraaf O2 zouden in 
totaal 50.000 x 1.000 = 50 miljoen tabelraadplegingen moeten worden 
gemaakt. Als de tabel een lengte van 60 tekens zou hebben en ieder 
teken evenveel kans in de invoergegevens te staan, dan zouden 
gemiddeld 30 tekens in de tabel moeten worden onderzocht voordat 
het goede teken was gevonden. Er zouden in totaal 30 x 50 miljoen 
vergelijkingen moeten worden gemaakt; zelfs op een snelle moderne 
computer zou de hoeveelheid tijd benodigd om 1500 miljoen vergelij- 
kingen uit te voeren eerder in uren dan minuten moeten worden 
gemeten. Wanneer het om een grote tabel gaat, kan het daarom wen- 
selijk zijn snellere zoekmethoden te vinden. 

Wanneer de tabelgegevens achter elkaar worden onderzocht van 
links naar rechts, spreken we van een sequentieel onderzoek. Een 
handige manier om een sequentieel onderzoek te versnellen is het 
achter elkaar plaatsen van de tabelelementen van links naar rechts 
in een dalende frequentie van benodigdheid. Wanneer we de elemen- 
ten die het vaakst voorkomen aan het begin van de tabel plaatsen, 
zal dat ertoe leiden dat gemiddeld minder elementen worden onder- 
zocht voordat het benodigde element is gevonden. 

Veronderstel bijvoorbeeld dat in het hierboven genoemde geval 
twee van de te vertalen elementen in de invoer nul en spatie zijn 
en dat 40% van alle invoertekens nul en 30% spaties zijn. Wanneer 
we nul en spatie op de eerste en tweede plaats in de tabel zetten, 
betekent dat het volgende: 


40% van de zoekbewerkingen vereist 1 vergelijking 
305 van de zoekbewerkingen vereist 2 vergelijkingen 


9-2. gemiddeld 31 
vergelijkingen 


30% уап de zoekbewerkingen vereist 2 + 


Het totaalgemiddelde aantaal vergelijkingen zou dus zijn: 


40x1 + 30x2 + 30х31 _ 


100 10.3 
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Er is geen opgave bij deze paragraaf, maar u zou nog eens de 
laatste alinea van paragraaf O2 kunnen lezen, waar de zichzelf-indi- 
cerende methode van tabelraadpleging kort wordt beschreven. Waar 
deze techniek kan worden gebruikt zijn geen vergelijkingen nodig. 


O4 DE BINAIRE OF LOGARITMISCHE ZOEKMETHODE 


Dit is een zoekmethode die, als alle elementen in gelijke frequentie 
benodigd zijn, zo min mogelijk vergelijkingen garandeert (wannneer 
zelf-indicerend niet mogelijk is). 

De tabelelementen worden gerangschikt in een opklimmende 
waardenreeks, bijvoorbeeld: 


ЕЛЕЛЕЛЕЛЕЗЕЛЕЛЕЕ 


FIGUUR 39 Tabel 1 (Gemeentecodes met twee tekens). 


Laten we aannemen dat een gemeentecode is ingelezen bij de 
invoergegevens en vertaald moet worden in de gemeentenaam die 
in een andere tabel wordt gegeven: 


ТЕСТ [кек [ноян | usor | oven | vans | vene 


FIGUUR 40 Tabel 2 (Gemeentenamen met vijf tekens). 


Laat het aantal tabelelementen N zijn (= 8 in tabel 1). Onderzoek 
het element N/2 (= 4) vanaf het begin. Aangenomen dat dit niet het 
gewenste element is, gaat de zoekmethode als volgt verder: als het 
gewenste element groter is dan het pas onderzochte elemtent, houdt 
dit feitelijk in dat de hele linkerkant van de tabel onbelangrijk is. 
Onderzoek de (N/4)-de (= 26) elementpositie rechts van het laatst 
onderzochte element. 

Laten we aannemen dat het gewenste element kleiner is dan dit 
nieuwe element uit de tabel; dit betekent dat het gehele rechter 
kwart van de tabel onbelangrijk is. Daarom onderzoeken we de 
(N/8)-ste (= eerste) positie links van het laatst onderzochte element. 
Op deze wijze wordt de plaats van het element bepaald. 

In het algemeen zien we dus dat de eerste vergelijking de halve 
tabel elimineert, de tweede vergelijking opnieuw een kwart, de derde 
een achtste, enz. Het maximale aantal vergelijkingen benodigd om 
een element іп een tabel van М elementen te lokaliseren is ?log(N)+1, 
terwijl het gemiddelde aantal minder dan dit is. 
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Opgave 


1. (Nogal moeilijk) Een kaart bevat een tweecijferige plaatscode in 
PL-CODE die als volgt moet worden vertaald: 


Code Plaats Code Plaats 
MO MOKUM KO KOOG 
AS ASSEN EP EPE 

SN SNEEK OM OMMEN 
BE BEST VA VAALS 
ED EDE HO HOORN 
DE DELFT VE VENLO 
LA LAREN LI LISSE 


Neem aan dat de code op de kaart correct is. 

Teken dan een programmastroomschema dat een binaire zoekme- 
thode ter vertaling van deze code uitvoert. Tracht het proces 
ook in gestructureerd Nederlands te beschrijven. In de prak- 
tijk zal men voor zo'n probleem als dit nogal eens zowel een pro- 
grammastroomschema als een specificatie in gestructureerd 
Nederlands maken om na te gaan of de beschrijving van de pro- 
cedure correct is. Test uw stroomschema met code LI en één of 
twee andere codes om er zeker van te zijn dat het werkt (u kunt 
een afkappingsprobleem hebben wanneer het aantal elementen in 
de tabel niet een macht van 2 is; een manier om dit probleem te 
ontlopen bestaat hierin dat we het aantal elementen tot een macht 
van 2 maken en de grootst mogelijke COBOL-waarde in de over- 
tollige elementen plaatsen). 

Schrijf ook de COBOL-opdrachten benodigd om de zoekmethode 
uit te voeren. (Het is mogelijk in dit voorbeeld met slechts één 
tabel te werken.) 


05 SEARCH 


Grotere compilers voorzien ook in een automatische zoekmethode voor 
een 1-dimensionale tabel. Er zijn een aantal keuzemogelijkheden 
beschikbaar, maar de methode verloopt in wezen als volgt. 


1. De naam van de index ('index-naam') die moet worden gebruikt 
bij de tabel wordt gedeclareerd door een INDEXED-BY-passage in 
de gegevensbeschrijving voor de tabel, bijvoorbeeld: 


01 TABEL. | 
02 TABEL-ELEMENT PICTURE XX OCCURS 100 TIMES 
INDEXED BY TAB-INDEX. 
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De gespecificeerde index-naam (TAB-INDEX іп het voorbeeld) wordt 
verder nergens in de Data Division beschreven; de compiler voor- 
ziet zelf hierin. De index verandert automatisch van waarde wanneer 
een SEARCH plaatsvindt. 


2. De gewenste beginwaarde van de index wordt bereikt door de 
SET-opdracht. Deze gewenste waarde is gewoonlijk 1 om er zeker 
van te zijn dat het zoeken in de tabel begint bij het eerste tabel- 
element, bijvoorbeeld: 


SET TAB-INDEX TO 1. 


3. De tabel wordt doorzocht door middel van de opdracht met het 
formaat: 


SEARCH identifier АТ END imperative-statement-!| 


„ге. Amperative-statement-2 

WHEN condition) [че SENTENCE } 

De te specificeren identifier is dezelfde als die waaraan de 
INDEXED BY-passage in de Data Division werd gekoppeld, bijvoor- 
beeld: 


SET TAB-INDEX TO 1. 

SEARCH TABEL-ELEMENT AT END PERFORM ELEMENT-NIET-GEVONDEN 
WHEN TABEL-ELEMENT (TAB-INDEX) = INVOER-CODE 
NEXT SENTENCE. 


Een automatische binaire zoekmethode verkrijgen we door de 
SEARCH ALL-variant. In dit geval moet ook de тапш; уап ае 
tabel worden gespecificeerd, bijvoorbeeld: 

ж 
02 TABEL-ELEMENT PICTURE XX OCCURS 100 TIMES 
ASCENDING KEY IS TABEL-ELEMENT 
INDEXED BY TAB- INDEX, 


Om een binaire zoekmethode op gang te krijgen kunnen we zeg- 
gen: 


SEARCH ALL TABEL-ELEMENT 
АТ END PERFORM ELEMENT-NIET-GEVONDEN 
WHEN TABEL-ELEMENT(TAB-INDEX) = INVOER-CODE 
NEXT SENTENCE. 


Er is geen opgave bij deze paragraaf. De volledige formaten van 
de opdrachten SEARCH en SET worden gegeven in Appendix D. 

Het gebruik van INDEXED BY bij het werken met tabellen wordt 
aanbevolen, zelfs als er niet met SEARCH wordt gewerkt. De pro- 
grammeur moet er dan echter goed op letten dat de waarde van de 
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index niet buiten het bereik van de tabelgrenzen valt. Dat is name- 
lijk niet toegestaan, behalve wanneer de index het element is dat 
in de VARYING-passage van een PERFORM ... VARYING voorkomt. 


O6 TWEEDIMENSIONALE TABELLEN 


Deze worden gevonden wanneer een element wordt herhaald binnen 
een ander element dat zelf wordt herhaald, dat wil zeggen wanneer 
de ene OCCURS-passage ondergeschikt is aan een andere OCCURS- 
passage. Veronderstel bijvoorbeeld dat een fabrikant overzeese 
agenten, streekvertegenwoordigers en aannemers voorziet van 
onderdelen met een verschillend kortingspercentage overeenkomstig 
de aard van het onderdeel en de soort afnemer: 


Onderdelen 
Afnemer Motoren | Panelen | Wielen | Andere 
Overzeese agent 
Streekvertegenw. 
Aannemer 


Veronderstel dat het programma een factuur moet klaarmaken 
vanuit een klantenorderrecord dat naast de bruto orderkosten de 
volgende twee code-elementen van ieder één cijfer bevat: 


AFNEMERS-CODE ONDERDEELSOORT 
1 = overzeese agent 1 = motoren 
2 = streekvertegenw. 2 = panelen 
З = aannemer 3 = wielen 
4 = andere 


De tabel met kortingspercentages kunnen we nu als volgt coderen: 


WORKING-STORAGE SECTION. 
01 KORTINGS-TABEL VALUE "353030303025202010050500"'. 
02 RIJ OCCURS 3 TIMES. 
03 KORTING OCCURS 4 TIMES PICTURE У99. 


Dit programmadeel beschrijft een tabel met 3 rijen en 4 kolommen; 
de eerste vier elementen in de VALUE-passage zijn de kortingen 
voor iedere kolom van de eerste rij van de tabel, de volgende vier 
zijn de kortingen voor iedere kolom van de tweede rij, enz. 

Een individueel element kan worden gelokaliseerd door twee indi- 
ces, de eerste voor de rij en de tweede voor de kolom. Motoronder- 
delen voor overzeese agenten hebben de korting in de eerste rij, 
eerste kolom; dit is KORTING(1, 1). Panelen voor streekvertegen- 
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woordigers krijgen KORTING(2, 2), terwijl ‘andere! voor aannemers 
KORTING(3, 4) oplevert. De inhoud van de VALUE-passage kan 
worden voorgesteld zoals in figuur 41: 


RIJ(1) RIJ(2) RIJ(3) 
FIGUUR 41 Inhoud уап KORTINGS-TABEL. 
terwijl binnen een rij ieder element als volgt wordt beschreven: 


KORTING(1, 1) KORTING(1, 2) КОВТІМС(1, 3) КОВТІКС(1, 4) 


RIJ(1) 


FIGUUR 42 Inhoud van RIJ(1). 


In dit voorbeeld beschrijft de waarde van AFNEMERS-CODE pre- 
cies de gewenste rij, terwijl de waarde van ONDERDEELSOORT pre- 
cies de gewenste kolom beschrijft; dat wil zeggen de tabel is zelf- 
indicerend door deze elementen. Opdrachten in de Procedure Divi- 
sion kunnen bevatten: 


MULTIPLY BRUTO-KOSTEN BY 
KORTING (AFNEMERS-CODE, ONDERDEELSOORT) 
GIVING KORTING-BEDRAG ROUNDED. 


Opgaven 


1. Veronderstel dat in ons voorbeeld AFNEMERS-CODE de waarden 
0, 1, 2 aanneemt. Hoe zou u de laatste opdracht moeten wijzigen? 


2. In hetzelfde programma als het voorbeeld in de tekst wordt een 
record als volgt beschreven: 


01 REGEL. 
02 RIJ-UIT OCCURS 3 TIMES. 
03 FILLER PICTURE XX. 
03 KORTING-UIT PICTURE 0.99В OCCURS 4 TIMES. 


Er zijn twee elementen PICTURE 9 in working storage die wij 
RIJ-TELLER en KOL-TELLER noemen. Schrijf opdrachten die 
iedere KORTING naar het overeenkomende veld KORTING-UIT 
verplaatsen. (advies: Neem bijvoorbeeld de opdracht PERFORM 
RIJ-VULLEN VARYING RIJ-TELLER FROM 1 BY 1 UNTIL КІЈ- 
TELLER = 4 op. In RIJ-VULLEN kan een andere PERFORM- 
opdracht staan die de individuele velden verplaatst.) 
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3. Een programma bevat een grote tabel die gebruikt wordt om er 
totalen in bij te houden: 


01 ТАВЕІ,-1. 
02 RIJ OCCURS 100 TIMES INDEXED BY RIJTELLER. 
03 TOTAAL OCCURS 5 TIMES PICTURE S9(4)V99 COMP 
INDEXED BY KOL-TELLER. 


Elk totaal moet een beginwaarde krijgen van nul, maar dit kan 
niet worden bewerkstelligd door middel van een value-passage, 
aangezien de occurs-passage is gespecificeerd. Bovendien is 
voor TOTAAL COMP gespecificeerd hetgeen op veel machines 
inhoudt dat het overbrengen van nullen naar het groepsveld 
TABEL-1 niet tot gevolg heeft dat de individuele TOTAAL- 
velden ook nul zullen bevatten. Er zal dus code geschreven moe- 
ten worden om elk tabel-element op nul in te stellen. 

Schrijf de opdrachten die hierin voorzien. 


О7 STRING 


Hoewel ze op het eerste gezicht nogal ontzagwekkend lijken, maken 
de opdrachten STRING en UNSTRING in bepaalde gevallen een veel 
gemakkelijker verwerking van gegevens mogelijk. De complete for- 
maten worden in Appendix D gegeven; ik zal proberen het gebruik 
van deze opdrachten toe te lichten en iets van hun mogelijkheden 
te illustreren. Maar kennis van deze opdrachten is voor de rest van 
deze tekst niet noodzakelijk. 

De STRING-opdracht, ontmanteld tot wat louter wezenlijk is, 
heeft het formaat : 


literal-1 literal-2 


ідепёі#іег- 1 || identifier-2 
STRING | || SIZE 


| ….DELIMITED BY ee, 


INTO identifier-3. 


Het ideale gebruik van deze opdracht vindt plaats wanneer we 
een aantal velden willen bijeenbrengen om één lange reeks van tekens 
in een nieuw veld te maken. Een typerend voorbeeld treedt bijvoor- 
beeld op wanneer we een boodschap op een beeldscherm willen 
afbeelden als onderdeel van een dialoog met een terminal-gebruiker. 
Veronderstel bijvoorbeeld dat we de volgende records hebben: 


01 BEELDSCHERM-REGEL PICTURE X(60). 
01 ARTIKEL-RECORD. 
02 ARTIKEL-NUMMER PICTURE 9(4). 
02 VAK-NUMMER PICTURE 99. 


02 ARTIKEL-BESCHRIJVING PICTURE X(20). 


176 Programmeringstechnieken 


Veronderstel verder dat de inhoud van de velden ARTIKEL- 
NUMMER, VAK-NUMMER en ARTIKEL-BESCHRIJVING respectievelijk 
8076, 16 en "STALEN BUIS. "іс, Deze velden kunnen dan in 
BEELDSCHERM-REGEL worden opgemaakt door: 


MOVE SPACES TO BEELDSCHERM-REGEL. 

STRING "ARTIKEL: " 

ARTIKEL-NUMMER 

" BESCHRIJVING: " 

ARTIKEL-BESCHRIJVING 

" VAK: " 

VAK-NUMMER 

DELIMITED BY SIZE INTO BEELDSCHERM-REGEL. 


De passage DELIMITED BY SIZE heeft eenvoudig tot gevolg dat 
de genoemde velden in hun totaliteit aan de reeks worden toegevoegd. 
Dat wil zeggen: na uitvoering van deze opdracht bevat 
BEELDSCHERM-REGEL: 


ARTIKEL: 8076 BESCHRIJVING: STALEN ВОІ5._________ VAK: 16 

In tegenstelling tot MOVE vult STRING niet automatisch de rech- 
terkant van het ontvangende veld met spaties op; vandaar de voor- 
afgaande MOVE in het voorbeeld. 

Laten we verder veronderstellen dat we de af te beelden regel 
willen doen verschijnen als een doorlopende zin door de literal 
" VAK: " zo te verplaatsen dat deze onmiddellijk na de laatste letter 
van de beschrijving volgt. Indien de beschrijving altijd werd 
gevolgd door een punt, kan dit bereikt worden door: 


MOVE SPACES TO BEELDSCHERM-REGEL. 

STRING "ARTIKEL: " 

ART IKEL-NUMMER 

" BESCHRIJVING: " 

DELIMITED BY SIZE 

ARTIKEL-BESCHRIJVING DELIMITED BY шш 

" ҮАК: " 

VAK-NUMMER 

DELIMITED BY SIZE INTO BEELDSCHERM-REGEL. 


Het begrenzingsteken wordt zelf niet verplaatst. Zo is het resul- 
taat van deze opdracht: 


ARTIKEL: 8076 BESCHRIJVING: STALEN BUIS VAK: 16 


Het begrenzingsteken kan ook een reeks tekens zijn. Indien 
geen begrenzingsteken wordt tegengekomen terwijl de move plaats- 
vindt, wordt het gehele betrokken veld toegevoegd aan de reeks. 

Het is duidelijk dat, wanneer de moves niet DELIMITED BY SIZE 
zijn, het feitelijke aantal aan elkaar geregen tekens in het ontvan- 
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gende veld niet constant is. De programmeur kan het aantal aan 
elkaar geregen tekens vastleggen door gebruikmaking van de 
POINTER-mogelijkheid, die verwijst naar een (elementair) gegevens- 
element dat het nummer van de volgende beschikbare positie in het 
ontvangende veld moet bevatten, waarbij we van links tellen (dat 

wil zeggen het feitelijke aantal tekens dat is verplaatst naar het veld 
plus 1). Indien bijvoorbeeld een element VOLGEND-TEKEN PICTURE 
999 USAGE COMP was beschreven, kunnen we coderen: 


MOVE 1 TO VOLGEND-TEKEN. 

MOVE SPACES TO BEELDSCHERM-REGEL. 

STRING "ARTIKEL: " 

ARTIKEL-NUMMER 

" BESCHRIJVING: " 

DELIMITED BY SIZE 

ARTIKEL-BESCHRIJVING DELIMITED BY nn 

" УАК: " 

УАК-МОММЕК 

DELIMITED BY SIZE INTO BEELDSCHERM-REGEL POINTER VOLGEND-TEKEN. 


Na uitvoering van deze opdracht heeft VOLGEND-TEKEN de 
waarde 48. Wanneer een pointer expliciet is gespecificeerd, worden 
de tekens in het ontvangende veld geplaatst, beginnend bij de positie 
die door het pointerveld is gespecificeerd; vandaar de noodzaak om 
een beginwaarde voor VOLGEND-TEKEN in het voorbeeld vast te 
leggen. De pointer-mogelijkheid is met name waardevol indien we 
aan een al eerder gevormde reeks nog meer wensen toe te voegen; 
om ons voorbeeld te vervolgen: 


STRING " UITVERKOCHT" DELIMITED BY SIZE 
INTO BEELDSCHERM-REGEL POINTER VOLGEND-TEKEN. 


zal — aangenomen dat de waarde van VOLGEND-TEKEN op geen enke- 
le wijze is veranderd — het volgende resultaat opleveren: 


ARTIKEL: 8076 BESCHRIJVING: STALEN BUIS VAK: 16 UITVERKOCHT 
Tenslotte kan het voorkomen dat het ontvangende veld te klein is 


om de gewenste reeks te accepteren. Deze omstandigheid kan worden 
ontdekt door het sleutelwoord OVERFLOW (zie Appendix D). 


08 UNSTRING 


Het doel van de UN STRING-opdracht is een reeks tekens uit een 
veld van verzending te verdelen, als kortere reeksen, over ontvan- 
gende velden. 
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Veronderstel bijvoorbeeld dat we de volgende velden in de Data 
Division hebben: 


02 VOLGEND-TEKEN PICTURE 999 COMP. 

02 AANTAL-REGELS PICTURE 9 COMP. 
01 INVOER-ADRES PICTURE Х(150). 
01 UITVOER-ADRES. 

02 NAAM PICTURE X(40). 

02 ADR-REGEL-1 PICTURE Х(40). 

02 ADR-REGEL-2 PICTURE Х(40). 

02 ADR-REGEL-3 PICTURE Х(40). 

02 ADR-REGEL-4 PICTURE X(40). 


Het record INVOER-ADRES bevat een naam en 2, З of 4 adres- 
regels, onderling gescheiden door een schuine streep. Geen enkele 
adres-regel is langer dan 40 tekens. We willen elke adres-regel in 
het corresponderende veld UITVOER-ADRES krijgen en bovendien 
willen we weten hoevel adres-regels er zijn. Dit kan op de volgende 
wijze door UNSTRING worden bereikt: 


MOVE ZERO TO AANTAL-REGELS. 

UNSTRING INVOER-ADRES DELIMITED BY 1/11. INTO 
NAAM 

ADR-REGEL- 1 

ADR-REGEL-2 

ADR-REGEL-3 

ADR-REGEL-4 

TALLYING IN AANTAL-REGELS 

ON OVERFLOW PERFORM TEVEEL-REGELS. 


Пе OVERFLOW-econditie ontstaat indien alle ontvangende velden 
zijn gebruikt en er nog steeds niet in aanmerking genomen tekens in 
het veld van verzending over zijn. De TALLY ING-mogelijkheid 
brengt een telling van het aantal ontvangende velden tot stand; merk 
op dat de programmeur het element waarin de telling wordt bijgehou- 
den de gewenste beginwaarde moet geven. Gegevens naar de ontvan- 
gende velden worden gezonden volgens de normale regels voor 
MOVE (het veld van verzending wordt alfanumeriek behandeld), 
zodat er geen noodzaak is het ontvangende veld van een beginwaar- 
de te voorzien. 

Evenals bij STRING bestaat er een POINTER-mogelijkheid en 
meer dan één begrenzingsteken kan worden gespecificeerd door het 
bij elkaar voegen van begrenzingstekens met behulp van OR. Het 
begrenzingsteken zelf kan, indien gewenst, door de passage 
DELIMITED IN worden behouden. Laten we aannemen dat in het vori- 
ge voorbeeld het einde van de laatste adresregel werd gemarkeerd 
door een asterisk in plaats van de schuine streep; aannemende dat 
passende elementen zijn beschreven in de Data Division, kunnen 
we al deze mogelijkheden illustreren aan een eenvoudige routine die 
de naam en het adres afdrukt op achtereenvolgende regels: 
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P-ADRES-AFDRUKKEN. 
MOVE ZERO TO AANTAL-REGELS. 
MOVE 1 TO VOLGEND-TEKEN. 
MOVE SPACE TO SCHEIDINGSTEKEN. 
PERFORM P1-REGEL-AFBEELDEN UNTIL SCHEIDINGSTEKEN = "х", 
ADD AANTAL-REGELS TO TOTAAL-AANTAL-REGELS. 


P1-REGEL-AFDRUKKEN. 
UNSTRING INVOER-ADRES DELIMITED BY "/" OR "/х*" 
INTO BEELDSCHERM-REGEL 
DELIMITER IN SCHEIDINGSTEKEN 
POINTER VOLGEND- TEKEN 
TALLY ING AANTAL-REGELS. 
WRITE BEELDSCHERM-REGEL BEFORE ADVANCING 1 LINE. 


Een begrenzingsteken kan worden voorafgegaan door het woord 
ALL, in welk geval verschillende opeenvolgende begrenzingstekens 
worden behandeld als één gebeurtenis. In het vorige voorbeeld zou 
de routine, indien twee opeenvolgende schuine strepen in INVOER- 
ADRES worden ontmoet, een regel wit voor het tweede begrenzings- 
teken hebben uitgevoerd (indien er geen gegevens zijn die moeten 
worden verplaatst door de UNSTRING-opdracht, wordt het ontvan- 
gende veld gevuld met spaties als het alfanumeriek is, met nullen als 
het numeriek is). Dit kan worden ondervangen door: 


UNSTRING INVOER-ADRES DELIMITED BY ALL "/" ... 


Wanneer de programmeur wil weten hoeveel tekens zijn оуегре- 
bracht naar een ontvangend veld, zal de COUNT IN-mogelijkheid in 
een teller voorzien (zie Appendix D). 


ANTWOORDEN HOOFDSTUK O 


Paragraaf O1 


1. Stel u voor dat er een puntkomma staat in UITVOER-REC; om de 
andere machine dit als een puntkomma te laten lezen, moet u de 
puntkomma uitvoeren als een punt. Daarom moeten puntkomma's 
worden vertaald in punten. Wanneer we deze gedachtengang 
toepassen op ieder teken, krijgen we: 


INSPECT UITVOER-REC 
REPLACING ALL "." BY " w 
"un py nen 

"ж" By "у" 

"а" py "ж" 
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"уз ВҮ TaN 
de A ВҮ "у" 
"ке ВҮ " м 
т) " ВҮ Ча! 
" on BY WAT a 
Paragraaf O2 


1. Van de véle mogelijke antwoorden volgt deze nauwgezet de tekst. 


01 IN=REC. 

02 IN-TEKEN PICTURE X OCCURS 80 TIMES. 
WORKING-STORAGE SECTION. 
01 BESTANDS-INDICES COMP SYNC RIGHT. 


02 INREC-TELLER PICTURE 999. 
02 NIEUWREC-TELLER PICTURE 999. 
01 TABEL. 


02 BRONTABEL VALUE "ABCDEFGHI1 23456789". 
03 BRONTEKEN PICTURE X OCCURS 18 TIMES. 
02 DOELTABEL VALUE "123456789ABCDEFGHI''. 
03 DOELTEKEN PICTURE X OCCURS 18 TIMES. 
02 TABEL-TELLER PICTURE 99 COMP SYNC RIGHT. 
01 NIEUW-REC. 
02 NIEUW-TEKEN PICTURE X OCCURS 240 TIMES. 
PROCEDURE DIVISION. 
к (openen bestand en inlezen уап KAART enz.) 


PERFORM B1-REGEL-VERTALEN UNTIL EVB-IN-BESTAND = EE, 


B1-REGEL-VERTALEN. 
MOVE SPACES TO NIEUW-REC. 
MOVE 1 TO NIEUWREC-TELLER. 
PERFORM C1-TEKEN-VERTALEN VARYING 
INREC-TELLER FROM 1 BY 1 UNTIL INREC-TELLER = 81. 
READ IN-BESTAND AT END MOVE "Т" TO EVB-IN-BESTAND. 
C1-TEKEN-VERTALEN. ‚ 
IF IN-TEKEN(INREC-TELLER) = "*" 
PERFORM D1-MOVE-ZERO 3 TIMES 
ELSE 
PERFORM E1-VERGELIJKEN VARYING 
TABEL-TELLER FROM 1 BY 1 UNTIL 
TABEL-TELLER = 19 OR IN-TEKEN(INREC-TELLER) = 
BRONTEKEN (TABEL-TELLER) 
IF TABEL-TELLER LESS THAN 19 
MOVE DOELTEKEN(TABEL-TELLER) ТО NIEUW-TEKEN (NIEUWREC-TELLER) 
ADD 1 TO NIEUWREC-TELLER 
ELSE 
MOVE IN-TEKEN(INREC-TELLER) ТО NIEUW-TEKEN (NIEUWREC-TELLER) 
ADD 1 TO NIEUWREC-TELLER. 
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D1-MOVE-ZERO. 


MOVE ZERO TO NIEUW- TEKEN (NIEUWREC-TELLER) 
ADD 1 TO NIEUWREC-TELLER. 
E1-VERGELIJKEN. 


Paragraaf O4 


1. Laat de tabel 16 elementen bevatten, waarbij de laatste twee 
HIGH-VALUES zijn. 


FIGUUR 43 Antwoord bij opgave 1, $ O4. 


WORKING-STORAGE SECTION. 
01 TABEL. 
02 FILLER PICTURE X(70) VALUE "ASSENBEST DELFTEDE EPE 
- " НООВМКООС LARENLISSEMOKUMOMMENSNEEKVAALSVENLO''. 
02 FILLER PICTURE Х(10) VALUE HIGH-VALUES. 
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01 TABEL-2 REDEFINES TABEL. 
02 PLAATS-NAAM OCCURS 16 TIMES. 
03 TABEL-ELEMENT PICTURE XX. 
03 FILLER PICTURE XXX. 
01 HULPVELDEN COMP SYNC RIGHT. 
02 N PICTURE 99. 
02 I PICTURE 99. 
PROCEDURE DIVISION. 


MOVE 8 TO N 

MOVE 8 TO I. 

PERFORM B1-BINAIRE-ZOEK UNTIL PL-CODE = TABEL-ELEMENT(I). 
MOVE PLAATS-NAAM(I) TO enz. 


B1-BINAIRE-ZOEK. 
DIVIDE 2 INTO N ROUNDED. 
IF PL-CODE LESS THAN TABEL-ELEMENT(I) 
SUBTRACT М FROM І 
ELSE 
ADD N TO 1. 


Opmerking: In programma en stroomschema is er vanuit gegaan 
dat PL-CODE één van de waarden AS t/m VE uit de tabel bevat. 
Als we die veronderstelling laten vallen zal een extra controle 
in het programma nodig zijn. 


Paragraaf O6 


Ks 


U zou 1 moeten optellen bij AFNEMERS-CODE om deze code in de 
reeks te brengen die gewenst is om hem als een index te gebrui- 
ken. Dit zou de waarde van AFNEMERS-CODE wijzigen, hetgeen 
ongewenst kan zijn, in welk geval u het resultaat zou moeten 
plaatsen in een apart element van de working storage en dat 
gebruiken als de index voor de rij KORTING. 

COBOL biedt de mogelijkheid van relatieve indicering om in der- 
gelijke problemen te voorzien. Hier kan een index ieder element 
plus of min een geheel getal zijn, bijvoorbeeld : 


MULTIPLY BRUTO-KOSTEN BY KORTING(AFNEMERSCODE + 1, 
ONDERDEELSOORT) GIVING KORTING-BEDRAG ROUNDED. 


PERFORM B1-RIJ-VULLEN VARYING RIJ-TELLER FROM 1 BY 1 
UNTIL RIJ-TELLER = 4. 
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BÎ-RIJ-VULLEN. 
PERFORM C1-MOVE-KORTING VARYING KOL-TELLER FROM 1 BY 1 
UNTIL KOL-TELLER = 5 
C1-MOVE-KORTING. 
MOVE KORTING(RIJ-TELLER, KOL-TELLER) TO 
KORTING-UIT(RIJ-TELLER, KOL-TELLER). 


3. PERFORM B1-MET-NULLEN-VULLEN VARYING RIJ-TELLER 
FROM 1 BY 1 UNTIL RIJ-TELLER GREATER THAN 100. 


B1-MET-NULLEN-VULLEN. 
PERFORM C1-TOTAAL-OP-NUL VARYING KOL-TELLER 
FROM 1 BY 1 UNTIL KOL-TELLER GREATER THAN 5. 
C1-TOTAAL-OP-NUL. 
MOVE ZERO TO TOTAAL(RIJ-TELLER, KOL-TELLER). 
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р НЕТ PROGRAMMEREN VAN 
INTERACTIEVE DIALOGEN 


P1 ALGEMENE RICHTLIJNEN 


Een dialoog kan eenvoudig te programmeren zijn, wanneer het om een 
reeks vragen en antwoorden gaat zonder veel vertakkende logica. 
Anderzijds kan het om een zeer gecompliceerd programma gaan, wan- 
neer de gebruiker veel keuzemogelijkheden heeft en de dialoog zich 
langs vele verschillende wegen kan bewegen. Twee aspecten van 
interactieve programmering in de praktijk, die deze programmering 
bemoeilijken, zijn: 

(a) het besturen van de beeldschermapparatuur, vooral wanneer 
deze beschikt over een groot aantal ingebouwde toepassingsmogelijk- 
heden, en 

(b) het besturen van programmalogica wanneer de keuzemogelijkhe- 
den gecompliceerd zijn. 

Helaas is er geen standaardantwoord op (a). Beeldschermeenhe- 
den komen op de markt met een grote verscheidenheid aan toepas- 
singsmogelijkheden, zoals omgekeerde video, vette letters en onder- 
streping, schermbeveiliging, X-Y cursor-besturing, schermverhelde- 
ring, opflikkerende velden, geluidssignalen, etc. Deze toepassings- 
mogelijkheden worden gewoonlijk opgeroepen door de uitvoer naar het 
beeldscherm van besturingssymbolen die in het programma zijn opge- 
slagen, maar deze symbolen verschillen per apparaat. Verder bestaat 
er in de praktijk geen standaardaanpak voor het omgaan met beeld- 
schermeenheden in COBOL (ofschoon CODASYL hier wel over denkt); 
bij de meeste methoden zijn eenvoudige teletype-achtige bewerkingen 
met READ en WRITE mogelijk. Sommige methoden gebruiken ACCEPT 
en DISPLAY voor in- en uitvoer (paragraaf Q3). Weer andere metho- 
den behandelen het scherm als een record in een relatief bestand 
dat kan worden gelezen of waarheen kan worden geschreven (para- 
graaf T3). Nog weer andere methoden maken gebruik van de facili- 
teiten van de COMMUNICATIONS SECTION in standaard COBOL (niet 
in dit boek behandeld). Vele programmeringsafdelingen in het 
bedrijfsleven gebruiken voor de interactieve programmering gewijzig- 
de COBOL-versies of hulpprogramma's voor een speciale schermop- 
maak en voor de gegevensinvoer. We adviseren u de technische hand- 
boeken te bestuderen van de apparatuur die u zelf gebruikt. 

De volgende drie paragrafen betreffen specifieke methoden voor 
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de besturing van de logica in interactieve programma's. Ter wille 

van de eenvoud gaan we in paragraaf P2 en P3 uit van een teletype- 

achtig beeldscherm en in paragraaf P4 van een beeldscherm met X-Y 

cursorbesturing. 

Van programmeurs wordt vaak verwacht dat ze een flink aandeel 
hebben in de analyse en het ontwerp van interactieve procedures. 

In de hoofdstukken 8 en 9 van mijn boek Systems Analysis worden 

ideeën aangedragen over het kiezen van passende dialogen en het 

ontwerpen van een schermopmaak. De volgende controlelijst kan ook 
van nut zijn: 

1. Houd rekening met lettertypeveranderingen in antwoorden. 

2. Organiseer grote menu's in een boomschema. 

3. Denk aan het in drukvorm uitbrengen van de menu's. 

4. Geef ervaren gebruikers de kans om af te korten of stukken af 

te snijden. 

Denk aan verschillende graden van ondersteuning of verschil in 

lengte van de toelichtende boodschappen voor gebruikers met 

van elkaar verschillende ervaring. 

6. Laat gebruikers het systeem zo mogelijk aan hun eigen zienswijze 
aanpassen. 

7. Houd de dialoogvorm, werkmethode en betekenis van codes, sleu- 
telwoorden, ete. door het gehele systeem heen standaard. 

8. Geef snel antwoord op iedere invoer. 

9. Zorg ervoor dat de gebruiker niet op zijn geheugen hoeft te ver- 
trouwen. 

10. Overweeg het produceren van afgedrukt materiaal in plaats van/ 
naast een afbeelding op het scherm. 

11. Houd gegevens bij van het systeem en gebruikersreacties met 
het oog op latere verbeteringen (bijvoorbeeld aantallen transac- 
ties, frequentie waarin verschillende keuzemogelijkheden werden 
uitgevoerd, frequentie van fouten). 

12. Geef evenveel aandacht aan foutcondities als aan de hoofddialoog. 

13. Kies uw woorden zorgvuldig. 

14. Vermijd rommelige schermen. 


сл 


P2 DE MENU-DIALOOG 


Het menu is een gemakkelijk programmeerbare dialoog en is bijzonder 
geschikt voor onervaren gebruikers. Het grootste nadeel ervan is 
dat het menu langzaam kan zijn in vergelijking met andere dialoog- 
vormen, vooral als de terminal langzaam werkt. 

Menu's neigen naar een zekere wijdlopigheid, dus ọm de beknopte 
stijl van dit boek aan te houden moet ik een onrealistisch kort voor- 
beeld kiezen. Stel dat we het volgende hoofdmenu hebben: 
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Menu 1 


Wilt u 
1. een transactie invoeren 
2. een bestand afdrukken 
3. een vraag stellen? 


Een antwoord '1' brengt het volgende menu: 


Menu 1.1 


Kies het type transactie: 
1. factuur 
2. betaling 
3. mutatie op stambestand. 


Een antwoord '2' op het hoofdmenu resulteert іп deze afbeelding: 


Menu 1.2 


Kies af te drukken bestand: 
1. facturen van deze maand 
2. betalingen van deze maand 
3. klantenstambestand 


enz. 


Laten we aannemen dat in dit systeem een blanco antwoord inhoudt 
dat de gebruiker niet met het menu wil doorgaan en moet worden 
teruggegeven naar het direct daarboven liggende menu. Een ant- 
woord dat noch blanco noch een cijfer in het gebied van het menu is, 
is een foutief antwoord. Na het geslaagd verlopen van een bewerking 
op het laagste niveau (van een 'blad' in de boom van keuzemogelijk- 
heden) moet het laatst aangeboden menu worden herhaald. Zo kan de 
gebruiker weer teruggaan in de boom met menu's door achtereenvol- 
gens blanco antwoorden in te voeren, wanneer hem een ongewenst 
menu wordt aangeboden. 

Deze hiërarchische vertakkende logica is duidelijk een 'case'- 
constructie. In wezen heeft het programma deze vorm: 


Menu 1 


Herhalen totdat blanco antwoord 
IHerhalen totdat antwoord geldig is 
| [Beeld menu af 
| [Zorg voor antwoord 
| IEvalueer antwoord 
| [Wanneer 1 
| | [Voer 'menu 1.1! uit 
| [Wanneer 2 

| | [Voer menu 1.2' uit 

| [Wanneer A 

| | [Voer ‘menu 1.3' uit 
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| [Wanneer blanco 
| | Igeen handeling 
| |Anders 

| | lantwoord niet geldig 


Menu 1.1 


Herhalen totdat blanco antwoord 
[Herhalen totdat antwoord geldig is 
| IBeeld menu af 
| |Zorg voor antwoord 
| |Еуа1цеег antwoord 
| |Маппеег 1 
| | [Voer 'Factuur-invoeren! uit 
| |Маппеег 2 
| | [Voer 'Betaling-invoeren! uit 
| [Wanneer 3 
| | [Voer 'Stam-veranderen' uit 
| [Wanneer blanco 
| | Igeen handeling 
| ІАпаегѕ 
| | lantwoord is niet geldig 


enz. 


(De Evalueer ... Wanneer ... manier van omgaan met de саве-соп- 
structie hier stemt overeen met een voorgestelde EVALUATE-instruc- 
tie in COBOL.) 

Het is duidelijk dat ieder antwoord waarvan niet specifiek is 
vastgesteld dat het niet geldig is, een geldig antwoord is. Ook dient 
te worden beseft dat instructies moeten worden toegevoegd aan de 
Anders-tak om de desbetreffende fout af te handelen. Deze schets 
veronderstelt dat het menu bij iedere foute invoer opnieuw wordt 
afgebeeld; willen we dit niet dan moet de handeling 'beeld menu af! 
verplaatst worden net vóór de binnenste herhalingsinstructie en de 
instructies die de fout afhandelen moeten het verplaatsen van de 
cursor naar het gegevensinvoerpunt (‘zorg voor antwoord!) па 
afbeelding van de foutmelding omvatten. 

Verder moet worden beseft dat het woord ‘antwoord! in dit voor- 
beeld lokaal is voor iedere procedure, dat wil zeggen antwoord in 
Menu 1 betekent het Menu l-antwoord, terwijl antwoord in Menu 1.1 
het Menu 1.1-апімоога betekent. De volgende algemene regels moeten 
in acht worden genomen bij het gebruik van gestructureerd Neder- 
lands ten behoeve van het ontwerpen van programma's. 

1. Verwijzingen naar bestandsnamen of gegevenselementen in сеп- 
traal gedocumenteerde bestanden, bijvoorbeeld in een data dic- 
tionary, zijn globaal tenzij ze lokaal zijn gedeclareerd. 

2. Verwijzingen naar andere gegevenselementen zijn lokaal tenzij 
globaal gedeclareerd. 

3. Lokale elementen die moeten worden meegegeven als parameters 
bij de aanroep van een subroutine moeten tussen haakjes worden 
geplaatst na de vermelding van de naam van de subroutine. 
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Als het antwoord globaal was gedeclareerd in dit voorbeeld, zou dit 
tot gevolg hebben dat een blanco invoer waar dan ook de gebruiker 
direct naar de top van de boom zou voeren en uit het programma. 

Bij de meeste computersystemen kan de tekst van de dialogen 
beter opgeslagen worden in voor het programma toegankelijk achter- 
grondgeheugen dan opgenomen als constanten in het programma. 

De reden hiervan is dat het gewoonlijk gemakkelijker is een gegevens- 
bestand te redigeren dan een programma te wijzigen en opnieuw te 
compileren en omdat dialoogtekst tijdens het gebruik opeenvolgende 
aanpassingen en verfijningen zal ondergaan. Eén mogelijkheid is om 
ieder menu als een record in een bestand (direct-toegankelijk is 
waarschijnlijk het beste — zie hoofdstuk T) te hebben, terwijl een 
andere mogelijkheid is om ieder menu als een bestand te hebben en 
iedere keuze als een record in dat bestand. De laatste methode is 
flexibeler indien het besturingssysteem voldoende krachtig is voor 
het werken met de grote hoeveelheid bestanden die hieruit kan resul- 
teren. Deze methode maakt het ook gemakkelijker een universeel- 
toepasbaar systeem voor het werken met menu's op te zetten. 

Met een universeel-toepasbaar systeem voor het werken met 
menu's behoeft er slechts één programma te worden geschreven om 
de afbeelding van de menu's en de verkrijging van de antwoorden 
te regelen. Ieder menu-elementrecord moet de boodschap bevatten 
van dit element zelf die moet worden afgebeeld als het element wordt 
gekozen, en de te volgen handeling. Dit zal òf weergave van een 
ander menu (doordat de naam van een menubestand wordt opgegeven) 
zijn òf het uitvoeren van een 'blad'-handeling (doordat de паат van 
een programma wordt opgegeven) òf beide. Met deze strategie is 
het programmeren van een hiërarchische menu-dialoog eenvoudig 
herleid tot het maken van een verzameling gegevensbestanden voor 
de menu's en het schrijven van de bladprogramma's (de bladprogram- 
ma's kunnen worden uitgevoerd door middel van interprogramma- 
tische communicatie — zie hoofdstuk U). 


Opgave 


1. Wijzig het voorbeeld van deze paragraaf zodanig, dat de dialoog 
terugkeert naar het hoofdmenu (Menu 1) indien de gebruiker 
de letter M intikt als antwoord op ieder verzoek om menukeuze. 


Praktijk-opgave 


1. Schrijf een specificatie in gestructureerd Nederlands van een 
universeel-toepasbaar systeem voor het werken met menu's. Werk 
het systeem uit en voer het in. 

(Als u de dingen eenvoudig wilt houden, beperk dan de keuze- 
mogelijkheden bij de menuselectie tot de cijfers 1,2,3, etc. en 
blanco. U zult het aantal keuzemogelijkheden, toegestaan bij een 
bepaald menu, moeten beperken.) 
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P3 STATUSOVERGANGSTABELLEN 


Interactieve dialogen brengen vaak interpretatie van reeksen tekens 
met zich mee die zijn ingevoerd op het toetsenbord (dit soort pro- 
blemen doet zich minder voor bij batch-systemen). Vele van deze 
problemen kunnen worden opgelost met de al toegelichte UNSTRING- 
en INSPECT-voorzieningen. Er is ook een tamelijk grote categorie 
problemen die kan worden opgelost door middel van statusovergangs- 
tabellen. Het belangrijkste voordeel van deze tabellen is dat ze hel- 
pen bij het verhelderen van een complex probleem vóór het coderen. 

Stel dat in een interactief programma een terminalmedewerker 
een gegevenselement waarde verkoop' moet invoeren. Hoewel met 
10 tekenposities voor het gegevenselement rekening moet worden 
gehouden, kan het gegeven iedere lengte tot en met 10 tekens heb- 
ben, inclusief een ongespecificeerd aantal spaties aan kop en staart. 
Het bedrag wordt niet van een rekenkundig teken (+ of -) voorzien. 
Minimaal één cijfer moet aanwezig zijn en een decimale komma kan 
facultatief aanwezig zijn. Een geheel getal moet worden geïnterpre- 
teerd als zoveel 'gulden', tenzij het wordt gevolgd door het symbool 
с, in welk geval het moet worden geïnterpreteerd als 'cent'. Het 
symbool c is niet toegestaan, wanneer er een decimale komma aanwe- 
zig is. 

Om een statusovergangstabel voor deze situatie op te zetten iden- 
tificeren we alle tekens of categorieën tekens die van belang zijn 
voor de interpretatie van de gegevens — spaties, cijfer, decimale 
komma, symbool с, ieder ander teken. Dit zijn de tekens die een 
verandering van status bewerkstelligen, zoals later wordt beschre- 
ven. Alle cijfers worden samengenomen іп de categorie 'cijfer', omdat 
er geen verschillende behandeling is vereist voor een bepaald cijfer. 
Tegelijkertijd zal ieder ander teken dan spatie, cijfer, decimale kom- 
ma en cent-symbool aanleiding geven tot een foutstatus. 

In dit geval bestaat er één andere van belang zijnde status van 
de invoer, namelijk de status waarbij het veld volledig vol is als 
gevolg van de invoer van tien tekens. 

De invoerstatussituaties en tekens worden gebruikt om de kolom- 
men van de tabel een naam te geven. Bij de constructie van de tabel 
geven we de eerste rij een benaming voor de oorspronkelijke status 
(bijvoorbeeld 'Vóór enig zinvol cijfer!) en voeren we in de tabel 
onder iedere kolom een willekeurig getal in om de rij van de nieuwe 
status aan te geven. Natuurlijk gebruiken we hetzelfde getal, als 
twee verschillende invoerelementen leiden tot dezelfde nieuwe status. 
Geef de tweede rij een benaming en ga op deze wijze verder, totdat 
alle rijen afgehandeld zijn op de als afsluiting beschouwde status- 
situatie na. 

Figuur 44 laat de hieruit voortvloeiende tabel zien. 

Bij het maken van de tabel doen zich waarschijnlijk statussitua- 
ties voor die niet duidelijk waren voorzien in de verhalende specifi- 
caties (bijvoorbeeld kan de decimale komma het laatste teken ongelijk 
aan spatie zijn dat wordt ingevoerd?). Deze kwesties moeten ter 
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2a 


1. Vóór enig zinvol 
cijfer 
2. Cijfers voor 
decimale komma 
3. Verwachting eerste cijfer 5 | 4 - 
na decimale komma 
&. Verwachting tweede cijfer 5 |5 
па decimale komma 
5. Na einde gegevensinvoer DD 


FIGUUR 44 Statusovergangstabel met de nieuwe huidige status 
die voortvloeit uit de gespecificeerde invoertekens 
of de invoerstatus. 


opheldering worden besproken met de analist of gebruiker. 

In het voorbeeld zijn, om het kort te houden, statussituaties bij 
elkaar gezet die gedifferentieerd kunnen zijn als dat is vereist. Bij- 
voorbeeld: er is slechts één 'fout'-status; er kunnen echter verschil- 
lende soorten fouten onderscheiden zijn, zodat bijvoorbeeld als sta- 
tussituaties voorkomen 'Fout-ongeldig teken aanwezig’, of 'Fout- 
ingebedde spatie! of 'Fout-uitsluitend spatie als invoer’, etc. (zie 
ook de volgende paragraaf). Evenzo hadden we statussituaties kun- 
nen hebben als 'Beëindigd en het veld bevat gehele guldens', 
‘Beëindigd en het veld bevat gehele септеп", etc. 

Er bestaan directe mogelijkheden voor de implementatie van een 
programma vanuit een statustabel, maar wat de beste methode is, is 
afhankelijk van de omstandigheden. Een methode om nader te bekij- 
ken wordt hieronder beschreven. Deze lijkt een tikje gecompliceerd, 
maar als u de methode eenmaal begrijpt denk ik, dat u het niet op 
een andere manier wilt doen. 

De kolommen worden geacht genummerd te zijn met 1,2,3,etc. 
en de statussituaties (= rijen) worden ook genummers met 1,2,3,etc. 
De statustabel wordt opgeslagen als gegevens en het invoerteken 
wordt omgezet, met behulp van een opzoektabel (zie paragrafen O2 
en O5), in het kolomnummer. De procedure verloopt dan als volgt. 
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Valideer verkoopwaarde 


Stel status in op 1 
Voer-in (of indiceer) eerste teken 
Herhalen totdat status = 6 of 7 
[Zet invoerteken om in kolomnummer 
Geef status de waarde van tabelinhoud (rij = status, 
kolom = kolomnummer) 
[А15 status niet = 6 of 7 
| [Уоег-1п (of indiceer) volgende teken 


Deze methode leidt tot redelijk gemakkelijk onderhoud, mits de pro- 
grammeur die het onderhoud verzorgt de methode ook begrijpt en 
de statusovergangstabel is gedocumenteerd. 


Opgave 


1. Welke wijziging zou u moeten aanbrengen in figuur 44 als de 
decimale komma niet het laatste teken ongelijk aan de spatie in 
de invoer mocht zijn? 


P4 STATUSTABEL TER BESTURING VAN DIALOOGVOORTGANG 


Vaak doen zich situaties voor in interactieve dialogen waarbij het 
gewenst is de besturing te regelen op een niet-hiërarchische wijze. 
Bekijk bijvoorbeeld de volgende mogelijke dienstverlening aan een 
gebruiker die een aantal investeringsalternatieven wil overwegen. 


Beantwoord ieder van de volgende vier vragen. 

Antwoord met een ? voor het element dat u wilt vinden; voer 
de waarde in van de andere drie elementen. Er is slechts 
één ? toegestaan in de antwoorden. 


Aantal investeringsjaren (= gehele jaren) =... 

Beginkapitaal = $ ..... 

Jaarlijks rentepercentage ( samengesteld op jaarbasis) -..... 5 
Eindkapitaal = $ ..... 


Druk RETURN іп na iedere invoer. 

Druk RETURN in als antwoord op welke vraag dan ook als u 
een vergissing hebt gemaakt en opnieuw wilt beginnen bij 
vraag 1. 


ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 
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Het gehele scherm moet bij aanvang worden gepresenteerd (behalve 
de regel met z's, die de plaats van het resultaat en het gebied van 
de foutboodschappen laat zien). De cursor wordt bewogen naar de 
eerste punt van de eerste vraag. Na geldige invoer van de gebruiker 
wordt de cursor geplaatst bij de eerste punt van de volgende vraag, 
etc. Na de laatste gegevensinvoer wordt een boodschap geschreven, 
die één van deze vier is in overeenstemming met het SI? 


Aantal vereiste jaren is 779 

Vereiste beginkapitaal is 55,555,559 
Benodigd rentepercentage is ZZ9,999% 
Eindkapitaal bedraagt 55,555,589 


Als zich een size error voordoet, luidt de boodschap: 


Het antwoord is te groot voor weergave. 
Voer nieuwe gegevens in. 


Als de gegevens van de gebruiker niet geldig zijn, wordt een pas- 
sende foutmelding afgebeeld in boodschapregel en wordt de cursor 
weer teruggeplaatst bij de eerste punt van het desbetreffende 
invoerelement. Als het invoerelement van de gebruiker leeg is (аап- 
gegeven door de invoer van alleen RETURN in deze specifieke situa- 
tie), wordt het scherm opnieuw gepresenteerd en de cursor ver- 
plaatst naar vraag 1. 

Om dit probleem zo te herordenen dat we het aankunnen met een 
hiërarchische oplossing is bijzonder alledaags. In ons voorbeeld zou 
het één menu vereisen dat vier keuzemogelijkheden biedt. Voor iede- 
re keuze zou er een andere dialoog zijn waarin wordt verzocht om de 
drie waarden benodigd om die specifieke vraag te beantwoorden. 

De oplossing met behulp van de statustabel is in principe gelijk 
aan de in de vorige paragraaf beschreven oplossing. Het enige ver- 
schil is dat behalve een nieuwe status die bepaald wordt door de 
inhoud van een tabelelement, iedere combinatie van huidige status / 
invoer ook een handeling vereist die moet worden uitgevoerd alvorens 
verder te gaan met de volgende status. 

Figuur 45 laat een statustabel voor ons probleem zien. Naast de 
nieuwe status is ieder element uit de tabel ook voorzien van een han- 
delingsgetal. Dit is alleen maar gedaan, opdat u de implementatie van 
de statustabel begrijpt; het handelingsgetal wordt niet in de tabel 
maar in het programma opgenomen. 

Net zo als daarnet is het noodzakelijk de tabel methodisch door 
te werken en de overgangen van de huidige naar de volgende status 
te analyseren, maar daarnaast de handeling te noteren die bij iedere 
fase moet worden uitgevoerd. Ter wille van de beknoptheid is de 
lijst met handelingen weggelaten, maar wel opgenomen in de in 
gestructureerd Nederlands gestelde programma-specificatie die onder 

figuur 45 volgt. 
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INVOER 
SITUATIE 


HUIDIGE STATUS 


Voor vraag aantal jaren 


?реуопдеп, voor beginkapitaal vraag 


3. ?niet gevonden, voor beginkapitaal vraag 


4. ?gevonden, voor percentage-vraag 


5. ?niet gevonden, voor percentage-vraag 


?реуопдеп, voor eindkapitaal vraag 


FIGUUR 45 Statusovergangstabel voor de investeringsdialoog. 


Investeringsvraagprogramma 
ине ches ben а 


Herhalen totdat geen-vragen-meer 
[Beeld tekst af op scherm 
[Cursor naar veld aantal jaren 
[Stel status іп op 1 
[Haal invoersituatie op 
[Herhalen totdat vraag-beantwoord 
| [Doe "еі invoersituatie om in kolom-nr' 
| Doe 'Voer handeling uit (status, kolom-nr, vraag- 
1 | Беапімоога)! 
| IExit als vraag-beantwoord 
| |СееҒ status waarde van tabelinhoud (status, kolom-nr) 
| [Haal invoersituatie op 
[Beeld af "Hebt u een andere vraag? Antwoord J of N" 
[А15 antwoord is "N" 
| ІСееп-угареп-теег 


Zet invoersituatie om іп kolom-nr 
а а ANNOM NE 


Evalueer antwoord van gebruiker 
Wanneer "?" 
[Stel kolom-nr іп op 1 
Wanneer spatie 
[Stel kolom-nr in op 4 
Wanneer geldig numeriek antwoord op vraag 
[Stel kolom-nr in op 2 
Anders 
[Stel kolom-nr in op 3 
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Voer handeling uit (status, kolom-nr, vraag-beantwoord) 


Evalueer status en kolom-nr 
Wanneer 1 en 1 
Stel vraagtype іп op 1 
[Cursor naar veld beginkapitaal 
Wanneer 1 en 2 
[Cursor naar veld beginkapitaal 
Wanneer 1 en 3 
[Schrijf boodschap dat gegevens ongeldig zijn 
[Cursor naar veld aantal-jaren 
Wanneer 2 en 1 
[Schrijf boodschap dat ? al ingevoerd is 
[Cursor naar veld beginkapitaal 
Wanneer 2 en 2 
[Cursor naar veld percentage 
Wanneer (2 en 3) of (3 en 3) 
\Schrijf boodschap dat gegevens ongeldig zijn 
[Cursor naar veld beginkapitaal 
Wanneer 3 en 1 
Stel vraagtype in ор 2 
\Cursor naar veld percentage 
Wanneer 3 en 2 
[Cursor naar veld percentage 
Wanneer 4 en 1 
Schrijf boodschap dat ? al ingevoerd is 
\Cursor naar veld percentage | 
Wanneer 4 en 2 
[Cursor naar veld eindkapitaal 
Wanneer (4 en 3) of (5 en 3) 
\Schrijf boodschap dat gegevens ongeldig zijn 
[Cursor naar veld percentage 
Wanneer 5 en 1 
Stel vraagtype іп ор 3 
[Cursor naar veld eindkapitaal 
Wanneer 5 en 2 
[Bereken eindkapitaal 
|Als size error 
| [Schrijf boodschap resultaat te groot 
|\Anders 
| [Schrijf boodschap eindkapitaal 
|Vraag-beantwoord 
Wanneer 6 en 1 
[Schrijf boodschap dat ? al ingevoerd is 
[Cursor naar veld eindkapitaal 
Wanneer 6 en 2 
|[Evalueer vraagtype 
Wanneer 1 
| IBereken jaren 
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| |А15 size error 

| | [Schrijf boodschap resultaat te groot 
| lAnders 
| | [Schrijf boodschap jaren 
Wanneer 2 

| ІВегекеп beginkapitaal 
| |Als size error 
| | [Schrijf boodschap resultaat te groot 
| [Anders 
| | [Schrijf boodschap beginkapitaal 
Wanneer 3 

| ІВегеКеп percentage 

| |Als size error 

| | [Schrijf boodschap resultaat te groot 
| [Anders 

| | [Schrijf boodschap percentage 


| [Fout programmalogica 
|[Vraag-beantwoord 

Wanneer 6 en 3 
[Schrijf boodschap dat gegevens ongeldig zijn 
|Cursor naar veld eindkapitaal 

Anders 
[Cursor naar veld beginkapitaal 


Bij implementatie van de case-constructie door middel van GO ТО... 
DEPENDING ON HANDELINGS-NR kan het HANDELINGS-NR in deze 
situatie worden berekend door: (status-1) #4+kolom-nr. 

Statusovergangstabellen kunnen worden gebruikt om dialogen 
beter te besturen met name bij de besturing van opeenvolgende 
schermpresentaties. In verschillende fasen en op verschillende ana- 
lytische niveaus van een gecompliceerde dialoog zal men de besturing 
beschrijven met behulp van statustabellen, menu's en gestructureer- 
de constructies. De programmeur die al deze drie technieken beheerst 
verkeert in de positie ieder commercieel op tekst gebaseerd dialoog- 
probleem op te lossen. 


Praktijk-opgave 


1 Implementeer het investeringsvraagprogramma op uw apparatuur. 
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ANTWOORDEN HOOFDSTUK P 


Paragraaf P2 

1. Declareer invoer-is-M globaal in Menu 1. Verander de openings- 
instructie van ieder ondergeschikt menu in: Herhalen totdat 
blanco antwoord of invoer-is-M. In ieder ondergeschikt menu, 
geen handeling uitvoeren in het geval antwoord = "М". 


Paragraaf P3 


1. Verander de 5 in rij 3, kolom 1 in een 6. 


DEEL 3 


Voortgezet 
COBOL 


О HULPMIDDELLEN VOOR DE 
PROGRAMMEUR EN DIVERSEN 


01 COPY 


Het formaat van deze opdracht is eenvoudig: 
COPY text-name 


waarin 'text-name' де naam is van eerder geschreven COBOL- 
opdrachten die zijn opgeslagen in een voor de COBOL-compiler toe- 
gankelijke bibliotheek. Deze bibliotheek is in het algemeen vastge- 
legd op magneetschijf. 

Veronderstel bijvoorbeeld dat we ervoor moeten zorgen dat de 
volgende codering wordt opgenomen in de bibliotheek onder de naam 
STANDAARD-KAARTLIJST: 


SELECT KAART-IN ASSIGN TO CARD-READER. 
SELECT AFDRUK ASSIGN TO PRINTER. 


Als we een programma willen schrijven dat deze bestandsnamen 
en apparatuur gebruikt, kunnen we de paragraaf FILE-CONTROL 
van het programma schrijven als volgt: 


FILE-CONTROL. COPY STANDAARD-KAARTLIJST. 


De compiler zal de opdrachten in de bibliotheek opzoeken en 
deze zo opnemen dat ons programma zal worden gecompileerd alsof 
we volledig hadden geschreven: 


FILE-CONTROL. SELECT KAART-IN ASSIGN TO CARD-READER. 
SELECT AFDRUK ASSIGN TO PRINTER. 


COBOL stelt ons in staat ееп naam of woord in de bibliotheek- 
opdrachten te wijzigen door gebruikmaking van REPLACING, bij- 
voorbeeld: 


FILE-CONTROL. COPY STANDAARD-KAARTLIJST 
REPLACING KAART-IN BY КААКТ-ВЕЅТАМР, 
AFDRUK BY AFDRUK-BESTAND. 
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Dit wordt gecompileerd als: 


FILE-CONTROL. SELECT KAART-BESTAND ASSIGN TO CARD-READER 
SELECT AFDRUK-BESTAND ASSIGN TO PRINTER. 


COBOL stelt ons bovendien in staat de opdrachten te wijzigen of 
aan te passen, bijvoorbeeld COPY STANDAARD-KAARTLIJST 
REPLACING <<PRINTER>> BY <<PRINTER RESERVE 3 AREAS>> 
levert op: 


FILE-CONTROL. SELECT KAART-IN ASSIGN TO CARD-READER. 
SELECT AFDRUK ASSIGN TO PRINTER 
RESERVE 3 AREAS. 


Resteert nog de kwestie hoe we de standaardopdrachten in de 
bibliotheek krijgen. Dit wordt niet op een standaardmanier door de 
COBOL-compiler gedaan; computerfabrikanten verschaffen een spe- 
ciaal programma (een functieprogramma; Engels: utility) dat 
opdrachten in de bibliotheek opneemt. 

In een afdeling die een centrale catalogus of woordenlijst (dic- 
tionary) bijhoudt van alle gegevenselementen in de bestanden, kan 
het een goede gedachte zijn de bestands- en recordbeschrijvingen 
in de bibliotheek vast te leggen zodat deze kunnen worden gekopi- 
eerd in programma's. Afgezien van deze mogelijkheid heeft COPY 
een tamelijk beperkt gebruik in de praktijk. Maar het principe van 
de bibliotheek is van belang voor ander programmeringswerk. 


02 HULPMIDDELLEN BĲ DEBUGGING (= НЕТ OPSPOREN VAN 
FOUTEN) 


Er bestaan diverse faciliteiten voor het opsporen van fouten. Voor- 
dat deze faciliteiten werden gestandaardiseerd, verschaften veel 
computerfabrikanten debugging-hulpmiddelen van eigen makelij (ze 
doen dat trouwens nog steeds). Er bestaan drie typen faciliteiten : 
debug-regels, trace-faciliteiten en monitoring-faciliteiten. 

Debug-regels zijn opdrachten in een programma die tijdens het 
testen wel kunnen worden uitgevoerd, maar die niet zijn bedoeld als 
deel van het uiteindelijke programma. Iedere regel met een 'D' in 
kolom 7 is een debug-regel die in wezen als commentaar wordt behan- 
deld door de compiler, tenzij hij bij de compilatie of uitvoering door 
de programmeur wordt geactiveerd. 

Bij de compilatie kan de compiler worden gevraagd de debug- 
regels te compileren door het toevoegen van de uitdrukking WITH 
DEBUGGING MODE aan de paragraaf SOURCE-COMPUTER. Bij afwe- 
zigheid van deze uitdrukking worden debug-regels behandeld als 
commentaar. 
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Bij de uitvoering kan de operator maatregelen treffen waardoor 
de computer de gecompileerde debug-regels al of niet, zoals wordt 
verlangd, uitvoert. Dit vindt plaats door opdrachten aan en van 
het besturingssysteem. 

Trace-faciliteiten beogen de paragraafnamen of regelnummers 
uit te lijsten in de volgorde waarin ze worden uitgevoerd door het 
programma. 

Monitoring-faciliteiten beogen te laten zien hoe de waarde van 
een specifiek element verandert naarmate het programma vordert. 

Debug-regels moeten in programma's worden opgenomen om de 
correctheid van veronderstellingen die tijdens het schrijven van het 
uitgangstaalprogramma werden aangenomen te toetsen. Afgezien van 
deze gebruiksmogelijkheid behoeven programmeurs die het gestruc- 
tureerd ontwerpen van programma's beheersen, zelden een beroep 
te doen op deze voorzieningen. 


Q3 MEDEDELINGEN VAN EN AAN DE OPERATOR 


Een boodschap kan aan de operator worden overgebracht gedurende 
de uitvoering van het programma door middel van de opdracht 
DISPLAY. Deze opdracht bestaat eenvoudig uit het woord DISPLAY 
gevolgd door een reeks variabelen en/of literals, bijvoorbeeld 


DISPLAY "AANTAL RECORDS GELEZEN = " REC-GETELD. 
Als REC-GETELD 01273 bevat, zou de boodschap 
AANTAL RECORDS GELEZEN = 01273 


op het weergavemiddel verschijnen, dat wil zeggen de randappara- 
tuur die ontworpen is voor visuele weergave. Gewoonlijk is dit het 
bedieningspaneel van de operator of het beeldscherm van de pro- 
grammeur of gebruiker. Bij sommige computers kan het weergave- 
middel nadrukkelijk vermeld worden. 

Om informatie van de operator te verkrijgen wordt gebruik 
gemaakt van de opdracht ACCEPT. Het woord ACCEPT wordt 
gevolgd door een enkele variabele naam. De machine stopt en wat de 
operator nu ook typt wordt de inhoud van de variabele, op mogelij- 
ke afkapping na. Bijvoorbeeld 


DISPLAY "VOER EEN GETAL VAN 2 CIJFERS ІМ" 
ACCEPT AANTAL. 


Wederom wordt bij sommige computers het invoerapparaat nadruk- 
kelijk vermeld. Wat de operator intoetst wordt links-aansluitend naar 
het ontvangende veld overgebracht. Bij numerieke velden loont het 
dus de moeite de operator te laten weten uit hoeveel posities zo'n 
veld bestaat. 
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Er bestaat een tweede formaat voor de ACCEPT-opdracht: 


TIME 


—W 


DATE 
ACCEPT identifier FROM {DAX | 


Ре DATE-mogelijkheid plaatst een zescijferige datum in de vorm 
JJMMDD in de gespecificeerde identifier. DAY geeft een vijfcijferige 
Juliaanse datum, JJDDD. TIME geeft een achtcijferige tijd in uren 
(24-uurs kloksysteem), minuten, seconden en honderdsten van een 
seconde. 


Q4 CONDITIENAMEN 


Een handig hulpmiddel in verband met documentatie is де conditie- 
naam op niveau-88. Hierbij wordt een naam (conditienaam) aan 
bepaalde waarden van gegevens in een elementair veld toegewezen. 
Als tijdens de uitvoering het element de vastgelegde waarde bevat, 
is de conditienaam true (waar); anders is hij false (niet waar). De 
waarheid van de conditienaam kan worden getest in een IF-opdracht 


in de Procedure Division. Bijvoorbeeld: 
02 FOUT-TEKEN PICTURE X. 


88 GELDIG-RECORD VALUE IS "F'', 
88 ONGELDIG-RECORD VALUE IS "Т", 


PROCEDURE DIVISION, 


PERFORM B1-VALIDEER-REC. 
IF ONGELDIG-RECORD PERFORM B2-FOUTMELDING. 


De laatste zin heeft hetzelfde resultaat als 

IF FOUT-TEKEN = "Т" PERFORM B2-FOUTMELDING. 

Conditienamen kunnen met ieder elementair veld worden verbon- 
den. Een reeks waarden kan door de THRU-mogelijkheid worden 
aangegeven: 

02 BESTELDE-HOEVEELHEID PICTURE 9(4). 


88 KLEINE-HOEVEELHEID VALUE IS 0 THRU 100. 
88 GRCTE-HOEVEELHEID VALUE IS 101 THRU 9999. 
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De reeksen met waarden mogen elkaar overlappen indien gewenst. 
(Een goed voorstel van CODASYL is, dat een zin als SET GELDIG- 
RECORD TRUE hetzelfde effect moet hebben als MOVE "Е" TO 
FOUT-TEKEN.) 


Q5 STOP 


Ik heb hiervoor nog geen moeite gedaan deze opdracht toe te lich- 
ten, omdat het doel ervan evident is. 
Er bestaan twee versies: 


STOP literal. 
STOP RUN. 


In het eerste geval stopt de machine met het uitvoeren van het 
programma en de literal wordt zichtbaar gemaakt aan de operator. 
De operator kan het programma opnieuw starten vanaf het punt 
waar werd gestopt. 

In het tweede geval wordt het programma volledig beëindigd en 
wordt de besturing van de computer weer overgedragen aan het 
operating system. 


R SORTEREN 


R1 SORTERINGSBEGRIPPEN 


Het doel van een sorteerbewerking bestaat in het plaatsen van de 
records van een bestand in een bepaalde volgorde. Veronderstel 
dat we een kaartenbestand zouden hebben als volgt: 


Werknemers- Aantal 
nummer gewerkte uren 


FIGUUR 46 Bestand van TIJD-KAARTEN. 


en we willen dit stellen tegenover een stambestand op magneetband 
waarop werknemersrecords staan in volgorde van werknemersnum- 
mer (één record per werknemer). Dan is het duidelijk dat het 
bestand van tijdkaarten in dezelfde volgorde moet worden gerang- 
schikt als het stambestand. 

In dit voorbeeld kunnen we dit gemakkelijk met de hand berei- 
ken. Maar als het bestand groot is, of als het op magneetband is 
vastgelegd, moeten we de computer het sorteren voor ons laten 
doen. Hoe de computer deze sorteerbewerking voltooit is tamelijk 
ingewikkeld en gaat buiten het bestek van dit boek - het is vol- 
doende voor ons te begrijpen dat er een programma bestaat, door 
de computerfabrikant geleverd, dat een niet-gesorteerd bestand 
inleest en een gesorteerd bestand oplevert in overeenstemming met 
onze instructies. 

Het werknemersnummer in het voorbeeld wordt het sleutelveld 
van de sorteerbewerking genoemd, dat wil zeggen het is het veld 
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dat het gegeven bevat dat bepaalt waar in het bestand het record 
moet worden geplaatst. Het bestand kan zijn gesorteerd in opklim- 
mende volgorde (het laagst genummerde record vooraan in het 
bestand) of afdalende volgorde (het hoogste nummer vooraan in het 
bestand). 

Het sorteren van TIJD-KAARTEN op een computer gaat globaal 
als volgt. De kaarten worden ingelezen (de eerste gang) en over- 
gebracht naar het achtergrondgeheugen om een werkbestand te vor- 
men. De records in het werkbestand worden in het achtergrondge- 
heugen door elkaar geschud totdat ze zijn gerangschikt en tenslotte 
uitgevoerd (de laatste gang) op een eenheid die we hebben gespeci- 
ficeerd, bijvoorbeeld magneetschijf. 

Tijdens de eerste gang worden de records door de computer 
ingelezen in hun oorspronkelijke volgorde. Tijdens de laatste gang 
worden ze uitgevoerd in sleutelvolgorde met als resultaat het 
gesorteerde bestand. 


Opgave 


1. Als TIJD-KAARTEN іп afdalende volgorde wordt gesorteerd met 
‘aantal gewerkte uren' als sleutelveld, welk record verschijnt 
dan als eerste in het bestand? 


R2 PRIMAIRE EN SECUNDAIRE SLEUTELS 


Soms is het wenselijk een bestand op meer dan één sleutelveld te 
sorteren. Veronderstel dat de bedrijfsleiding een verslag wil hebben 
van het aantal gewerkte uren in afdalende volgorde van het aantal 
uren. Er kunnen meerdere werknemers zijn die hetzelfde aantal uren 
hebben gewerkt, en in het verslag moeten deze werknemers in op- 
klimmende volgorde van werknemersnummer staan. 

Het aantal gewerkte uren is het primaire sleutelveld (het belang- 
rijkste) en het werknemersnummer is het secundaire sleutelveld 
(het minst belangrijke). We moeten nu TIJD-KAARTEN sorteren in 
opklimmende volgorde van de secundaire sleutel binnen een afdalen- 
de volgorde van de primaire sleutel. Dit houdt in dat na sortering 
het eerste record van het bestand het record is van de werknemer 
die het meeste aantal uren heeft gewerkt; als er meer dan één werk- 
nemer is die ditzelfde aantal uren heeft gewerkt, staat de werknemer 
met het lagere werknemersnummer vooraan. Het laatste record in 
het gesorteerde bestand is het record van de werknemer die het 
minste aantal uren heeft gewerkt; zijn er meer met dit aantal, dan 
heeft dit laatste record het hoogste werknemersnummer ervan. 

Sleutelvelden met numerieke pictures worden algebraïsch met 
elkaar vergeleken. Alle andere velden worden teken-voor-teken met 
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elkaar vergeleken overeenkomstig de sorteervolgorde van de speci- 
fieke computerfabrikant. 

Een ASCII-sorteervolgorde kan worden opgelegd door de decla- 
ratie: 


PROGRAM COLLATING SEQUENCE IS STANDARD 


in de paragraaf OBJECT-COMPUTER van de Configuration Section; 
anders zal de eigen sorteervolgorde van de machine worden 
gebruikt (deze variëren). Er bestaan voorzieningen om niet-gestan- 
daardiseerde sorteervolgordes op te roepen: raadpleeg het hand- 
boek. 

Bij het sorteren van alfanumerieke velden moet ervoor worden 
gezorgd dat de verkregen volgorde ook de gewenste 15. Er kunnen 
een aantal vreemde effecten optreden. Bij sommige sorteervolgordes 
bijvoorbeeld kan een rangschikking op een alfanumeriek veld, dat 
bij de invoer van de gegevens als een numeriek veld met teken was 
gedeclareerd, tot gevolg hebben dat de negatieve getallen hoger 
worden gesorteerd dan de positieve getallen. 


R3 DE OPDRACHT SORT 


In zijn eenvoudigste vorm wordt de opdracht SORT gebruikt om een 
invoerbestand te sorteren en een gesorteerd uitvoerbestand voort 
te brengen. Beide bestanden moeten worden gedefinieerd door con- 
ventionele FD-beschrijvingen. 

Een extra werkbestand moet worden gedefinieerd met een SD- 
beschrijving (Sort-file Description). Dit is zuiver een hulpbestand 
dat wordt gebruikt om de sorteerbewerking te voltooien. De SD- 
beschrijving wordt gevolgd door record(01)-beschrijvingen. De 
bestandsnaam gespecificeerd in een SD-beschrijving moet met 
SELECT en ASSIGN worden behandeld zoals ieder ander bestand, 
maar sommige fabrikanten stellen speciale eisen aan de naam van 
de eenheid waaraan een sorteringsbestand wordt gekoppeld. In het 
gebruik kan de opdracht als volgt eruit zien: 


FILE SECTION. 

SD WERKBESTAND. 

01 GEWERKTE-TIJD. 
02 WERKNEMERS-NR PICTURE X(4). 
02 FILLER PICTURE X(74). 
02 UREN PICTURE 99. 

FD TIJD-KAARTEN. 

01 KAART-IN PICTURE Х(80). 

FD GESORTEERDE-TIJD-KAARTEN. 

01 RECORD-UIT PICTURE Х(80). 
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PROCEDURE DIVISION. 
А1. 
SORT WERKBESTAND ON 
DESCENDING UREN 
ASCENDING WERKNEMERS-NR 
USING TIJD-KAARTEN 
GIVING GESORTEERDE-TIJD-KAARTEN, 
STOP RUN. 


Dit programma doet niets anders dan het sorteren van het 
bestand TIJD-KAARTEN, zodat het gesorteerde bestand (GESOR- 
TEERDE-TIJD-KAARTEN) in een volgend programma kan worden 
gebruikt, bijvoorbeeld het programma dat het verslag voor de 
bedrijfsleiding produceert. De primaire sleutel wordt het eerst, de 
secundaire sleutel het laatst gespecificeerd, dat wil zeggen in afne- 
mende belangrijkheid (dit behoeft geen betrekking te hebben op de 
volgorde waarin ze verschijnen in het record). De sleutels moeten 
velden zijn in het sorteringsbestandrecord. Het is alsof KAART- IN 
wordt verplaatst naar GEWERKTE-TIJD om te worden gesorteerd en 
vervolgens verplaatst naar RECORD-UIT na het sorteren. De sleu- 
telwoorden USING en GIVING specificeren respectievelijk de namen 
van het ongesorteerde invoerbestand en het gesorteerde uitvoerbe- 
stand. 

Merk op dat het sorteringsbestand zelf niet wordt geopend. Dit 
wordt automatisch gedaan. In de praktijk verschilt het per computer- 
fabrikant of de andere bestanden nu wel of niet moeten worden 
geopend en/of gesloten (in één systeem behoeven ze niet te worden 
geopend, maar is het wel vereist dat het uitvoerbestand wordt ver- 
grendeld (closed with lock) als het bewaard moet blijven nadat het 
programma is voltooid). 

Wanneer het management een overzicht had willen ontvangen 
met zowel het aantal gewerkte uren als het werknemersnummer in 
opklimmende volgorde, hadden we het gesorteerde bestand als volgt 
kunnen klaarmaken: 


SORT WERKBESTAND 

ON ASCENDING KEY UREN WERKNEMERS-NR 
USING TIJD-KAARTEN 

GIVING GESORTEERDE-TIJD-KAARTEN 


Opgaven 


1. Een magneetschijf bevat ongeordende records van 100 tekens 
voor boeken in een bibliotheek. De auteursnaam staat in de eer- 
ste 20 tekens, een classificatie in de volgende 10 tekens en de 
titel in de resterende tekens. Geef beschrijvingen van de DATA 
DIVISION en de PROCEDURE DIVISION om dit bestand te sorte- 
ren naar titel binnen auteur binnen classificatie (opklimmend). 
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2. Zal het hieruit resulterende bestand in de volgorde staan die de 
bibliothecaris verwacht? 


R4 EIGEN CODERING — EERSTE GANG 


In de voorafgaande paragraaf bevatte het uitvoerbestand exact 
dezelfde gegevens als het invoerbestand. Alleen de volgorde ver- 
schilde. Veronderstel dat we voor de sorteerbewerking records wil- 
len wijzigen, verwijderen of toevoegen. 

Om dit te volbrengen moeten we onze eigen codering invoeren 
in het logische patroon van de eerste gang van de sorteerbewerking. 
We hoeven dan niet een apart programma te maken dat het gesor- 
teerde bestand in een gewijzigd bestand omzet. Dit kan worden 
bereikt door de specificatie INPUT PROCEDURE IS section-name іп 
plaats van de USING-passage in de sort-zin. Section-name is de 
naam van een section in de Procedure Division die onze eigen code- 
ring voor de eerste gang bevat. 

In deze section lezen we het invoerbestand op de gebruikelijke 
niet-sort wijze in. We maken het gewijzigde of verbeterde record 
klaar in het gegevensrecord van het sorteringsbestand. Wanneer 
het record klaar is, coderen we RELEASE record-name, waarbij 
record-name de naam is van het record van het sorteringsbestand. 
Indien we een record willen verwijderen, volgt er eenvoudig geen 
release-opdracht. 

Laten we ons voorstellen dat het in het voorbeeld van paragraaf 
R3 gewenst is alleen voor werknemers die meer dan 40 uur gewerkt 
hebben een gesorteerd uitvoerbestand klaar te maken. De records 
voor alle andere werknemers moeten worden weggelaten. Met dezelf- 
de beschrijvingen voor de Data Division kunnen we dit bereiken door 
door te schrijven: 


PROCEDURE DIVISION. 
A1-HOOFD SECTION. 
А1. 
OPEN INPUT TIJD-KAARTEN. 
SORT WERKBESTAND ON 
ASCENDING KEY UREN WERKNEMERS-NR 
INPUT PROCEDURE IS B1-EERSTE-GANG-CODERING 
GIVING GESORTEERDE-TIJD-KAARTEN. 
CLOSE TIJD-KAARTEN. 
STOP RUN. 
B1-EERSTE-GANG-CODERING SECTION. 
В1. 
PERFORM C1-VERWERK-KAART-IN UNTIL EVB-TIJD-KAARTEN. 
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C1-VERWERK-KAART-IN SECTION. 
C1. 
READ TIJD-KAARTEN AT END 
Set EVB-TIJD-KAARTEN true. 
IF NOT EVB-TIJD-KAARTEN 
MOVE KAART-IN TO GEWERKTE-TIJD 
IF UREN GREATER THAN 40 
RELEASE GEWERKTE-TIJD. 


Een betere methode bestaat in het beschrijven van het veld 
UREN in het invoerrecord en het onderzoeken van dit invoerrecord 
voordat het verplaatst is naar het record van het sorteringsbe- 
stand. Er is namelijk een voorziening waardoor we kunnen coderen 
RELEASE GEWERKTE-TIJD FROM KAART-IN; de MOVE-instructie 
is dan overbodig geworden. 


Opgave 


1. Wijzig uw antwoord op угаар 1, paragraaf R3 zo, dat records 
met alleen maar blanco posities niet in het uitvoerbestand wor- 
den opgenomen. 


\ 


Н5 EIGEN CODERING — LAATSTE GANG 


Evenals we nog bewerkingen kunnen uitvoeren met records tijdens 
de eerste gang doordat we het vrijgeven van de records met 
RELEASE kunnen besturen, zo kunnen we dat ook tijdens de laatste 
gang door middel van de opdracht RETURN. In dit geval specifice- 
геп we OUTPUT PROCEDURE IS section-name in plaats van de 
GIVING-passage in de sort-zin. 

Veronderstel dat het in het voorbeeld van paragraaf R3 wense- 
lijk is niet alleen een compleet gesorteerd bestand met tijdkaarten- 
records op te zetten, maar ook die records uit te lijsten waarin het 
aantal gewerkte uren de 40 overschrijdt. Aangenomen dat we een 
passend afdrukbestand en record hebben beschreven, kunnen we 
coderen: 


CPEN OUTPUT GESORTEERDE-TIJD-KAARTEN AFDRUKBESTAND. 
SORT WERKBESTAND ON 
_ASCENDING KEY UREN WERKNEMERS-NR 

USING TIJD-KAARTEN 

OUTPUT PROCEDURE IS B1-LAATSTE-GANG-CODERING. 
CLOSE СЕЅОКТЕЕКрЕ-ТІЈр-КААВТЕМ AFDRUKBESTAND. 
STOP RUN. 

B1-LAATSTE-GANG-CODERING SECTION. 
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В1. 
PERFORM C1-VERWERK-GEWERKTE-TIJD UNTIL EVB-WERKBESTAND. 
C1-VERWERK-GEWERKTE-TIJD SECTION. 
Ct. 
RETURN WERKBESTAND 
AT END 
Set EVB-WERKBESTAND true. 
IF NOT EVB-WERKBESTAND 
WRITE RECORD-UIT FROM GEWERKTE-T IJD 
IF UREN GREATER THAN 40 
WRITE REGEL FROM СЕМЕЕКТЕ-ТІЛ). 


Ордауе 


1. Bij RELEASE moet de recordnaam van het sorteringsbestand wor- 
den vermeld, en bij RETURN de bestandsnaam van het sorte- 
ringsbestand. Waarom? 


R6 DE OPDRACHT MERGE 


De opdracht MERGE stelt ons in staat twee of meer bestanden die al 
al in dezelfde volgorde staan, samen te voegen tot één nieuw bestand. 

De opdracht MERGE werkt met een sorteringsbestand op dezelfde 
wijze als SORT. De syntaxis van beide opdrachten in nagenoeg іаеп- 
tiek, behalve dat MERGE geen eigen codering bij de eerste gang kan 
hebben. Het complete formaat staat in Appendix D. 


ANTWOORDEN HOOFDSTUK R 


Paragraaf R1 


1. Het record met werknemersnummer 1100. 


Paragraaf R3 


1. “FILE SECTION. 
SD SORTEERBESTAND. 
01 BOEKREC. 
02 AUTEURSNAAM PICTURE Х(20). 
02 CLASSIFICATIE PICTURE X(10). 
02 BOEKTITEL PICTURE X(70). 
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ЕР ВОЕКЕМ-ІМ. 
01 ВОЕК-ІМ PICTURE Х(100). 
FD BOEKEN-UIT. 
01 BOEK-UIT PICTURE X(100). 
PROCEDURE DIVISION. 
А1. 
SORT SORTEERBESTAND ON 
ASCENDING KEY CLASSIFICATIE AUTEURSNAAM BOEKTITEL 
USING BOEKEN-IN 
GIVING BOEKEN-UIT. 
STOP RUN. 


Waarschijnlijk niet. Het bestand zal staan in de door de computer 
opgelegde sorteervolgorde. De bibliothecaris zal waarschijnlijk 
willen dat het bestand wordt gerangschikt overeenkomstig de 
indexeringsregels van zijn bibliotheek. Deze laatste doen aller- 
lei dingen die de computer niet doet, bijvoorbeeld het 'verwaar- 
lozen! van spaties, het uitbreiden van afkortingen tot volledige 
woorden (Dr. wordt onder ‘doctor! opgenomen), het vertalen 
van getallen in woorden ('2001 - een odyssee door de ruimte! 
wordt onder 'tweeduizendeneen! opgenomen). 


Paragraaf R4 


1. 


SORT SORTEERBESTAND ASCENDING KEY etc. 
INPUT PROCEDURE IS B1-LAAT-SPATIES-WEG 
GIVING BOEKEN-UIT. 


B1-LAAT-SPATIES-WEG SECTION. 
В1. 
Until evb-boeken-in 
Read boeken-in record 
at end 
Set evb=-boeken-in true 
else 
if classificatie not = spaces 
RELEASE BOEKREC FROM BOEK-IN. 


Paragraaf R5 


F; 


Zie paragraaf G2, opgave 3. 


S DE REPORT WRITER 


S1 ACHTERGROND 


De report writer gebruikt principes die nogal verschillen van de 
meeste andere COBOL-principes. COBOL-leergangen noemen het om 
deze reden dikwijls niet, waardoor er maar weinig programmeurs 
zijn die het gebruik van de report writer kennen. 

Het belangrijkste verschil is dat de report writer in hoofdzaak 
een declaratieve taal is, dat wil zeggen de programmeur declareert 
welke resultaten hij wenst en laat het vervolgens aan de machine 
over hoe deze resultaten te bereiken. Andere aspecten van COBOL 
zijn hoofdzakelijk procedureel, dat wil zeggen dat de programmeur 
exact moet aangeven hoe de resultaten worden bereikt. Ofschoon 
het duidelijk lijkt dat de declaratieve stijl wenselijk is, blijkt deze 
in de praktijk niet erg soepel te zijn. De report writer is heel 
geschikt voor rechttoe-rechtaan rapporten, maar neigt ertoe tame- 
lijk ingewikkeld te worden voor iets wat buiten het gewone stramien 
valt. 

De report writer heeft zoveel faciliteiten dat de volledige behan- 
deling daarvan in detail het leren van een nieuwe programmeertaal 
zou inhouden. Het is mijn opzet een basis te verschaffen waarop de 
student desgewenst kan steunen bij het bestuderen van de handlei- 
dingen van de fabrikant. 

De report writer beoogt het produceren van overzichten op de 
regeldrukker te vergemakkelijken. De waarde van de report writer 
berust op de identieke vorm van veel overzichten. Ze beginnen met 
kopregels, gevolgd door detailregels, en totaalregels bij iedere 
controle-overgang. Het schrijven van het overzicht in conventioneel 
COBOL vereist het programmeren van standaardprocedures voor 
het nummeren van de pagina's, het tellen van de regels, het herha- 
len van de kopregels op iedere nieuwe pagina, het voorzien in spa- 
ties tussen de verschillende gegevenselementen. De report writer 
behandelt al deze dingen automatisch met slechts een minimum uit- 
drukkelijke opdrachten van de programmeur. 
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S2 VOORBEELD VAN EEN OVERZICHT, 
FD VAN EEN OVERZICHTSBESTAND 


Veronderstel dat onze taak is het samenstellen van een verkoopover- 
zicht op basis van verkooprecords die de volgende informatie bevat- 
ten: 


Gebiedscode 
Vertegenwoordigersnummer 
1 Verkoopdatum DDMMJJ 
7 Verkoopbedrag 9(4)У99. 


Het bestand met records voor een maand is in opklimmende volg- 
orde gerangschikt naar gebied en binnen een gebied naar vertegen- 
woordigersnummer. Het gewenste overzicht ziet er als volgt uit: 


MAANDELIJKS VERKOOPOVERZICHT PAGINA 1 
GEBIED VERTEGENWOORDIGER VERKOOPDATUM BEDRAG 
1 1001 01 01 83 27,46 
1 1001 07 01 83 100,00 
TOTAAL VERTEGENWOORDIGER 127,46 
1 1002 01 01 83 50,-- 
1 1002 21 01 83 100,00 
TOTAAL VERTEGENWOORDIGER 150,00 
TOTAAL GEBIED 277,46 

2 есе» «есес». 
TOTAAL-GENERAAL 9900,46 


Er zijn drie controleovergangen іп dit overzicht — verandering 
уап vertegenwoordigersnummer , verandering in gebiedscode en 
einde van het overzicht. 

Indien het overzicht moet worden geproduceerd door de report 
writer, zal de File-section van het programma als volgt luiden: 


FILE SECTION. 

FD AFDRUKBESTAND REPORT IS VERKOOPOVERZICHT. 

FD VERKOOPBESTAND VALUE OF IDENTIFICATION "VERKOOP". 
01 VERKOOPRECORD. 


02 GEBIEDSCODE PICTURE 9. 

02 VERTEGENWOORDIGERSNR PICTURE 9(4). 

02 VERKOOPDATUM PICTURE 9(6). 

02 VERKOOPWAARDE PICTURE 9(4)у99. 


Merk op dat AFDRUKBESTAND een passage: REPORT IS heeft. 
Het overzicht met de door de programmeur bedachte naam VERKOOP- 
OVERZICHT wordt beschreven in de Report Section. 
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53 DE REPORT SECTION 


De vormgeving van het overzicht en de controleovergangen worden 
beschreven in de Report Section, de laatste section in de DATA 
DIVISION. De omschrijving omvat een RD-passage (report descrip- 
tion), die de controleovergangen specificeert, gevolgd door beschrij- 
vingen op Ol-niveau die de regels van het overzicht specificeren. 

De report description in ons voorbeeld kan zijn: 


REPORT SECTION. 

RD VERKOOPOVERZICHT 
CONTROLS ARE FINAL GEBIEDSCODE VERTEGENWOORDIGERSNR 
PAGE LIMIT 55 LINES. 


De passage CONTROLS ARE beschrijft de controleovergangen 
in de volgorde van buiten naar binnen, dat wil zeggen de belangrijk- 
ste controleovergang komt het eerst (degene die het laatst iets 
afdrukt), de minst belangrijke het laatst (de overgang die het eerst 
iets afdrukt). FINAL is het sleutelwoord voor de controleovergang 
die optreedt aan het eind van het overzicht. PAGE LIMIT vertelt 
de report writer op een nieuwe pagina over te gaan en kopregels af 
te drukken wanneer het gespecificeerde aantal regels is bereikt. 

De RD-beschrijving wordt gevolgd door Ol-beschrijvingen voor 
de regels. Deze beschrijvingen verschillen van de gebruikelijke 01- 
beschrijvingen in de hierna volgende opzichten: 


1. Ze kunnen een TYPE krijgen. TYPE PAGE-HEADING betekent 
dat de regel aan de kop van de pagina staat en automatisch op 
iedere nieuwe pagine wordt afgedrukt. TYPE DETAIL houdt in 
dat het om een detailregel gaat die wordt afgedrukt door ор- 
drachten in de Procedure Division. TYPE CONTROL-FOOTING 
gevolgd door de gegevensnaam van een controleovergang bete- 
kent een totaalregel, die automatisch wordt afgedrukt zodra 
deze controleovergang plaatsvindt. 

9. Namen van records en velden kunnen worden weggelaten. Alleen 
de detailregel heeft in het algemeen een naam nodig. 

3. De passage LINE specificeert hoe het papier moet worden opge- 
schoven. LINE 1 betekent: druk af op de eerste regel, LINE 
PLUS 1 betekent: druk af één regel na de voorafgaande regel, 
LINE PLUS 2 betekent: druk af twee regels na de voorafgaande 
regel, enz. 

4. De passage COLUMN specificeert in welke kolom van de pagina 
het veld dient te beginnen. Fillers zijn niet nodig; de report 
writer voegt automatisch spaties in tussen de velden. 

5. Het is niet noodzakelijk gegevens naar de velden te verplaatsen. 
De passage SOURCE wordt gebruikt om vast te leggen waarvan- 
daan de gegevens komen. 

6. Totalen kunnen worden geaccumuleerd in een veld door de pas- 
sage SUM. 
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De beschrijving van ons voorbeeld laat het gebruik van deze 
kenmerken in de praktijk zien. 


01 ТҮРЕ PAGE HEADING. 
02 LINE 1. 
03 COLUMN 9 PICTURE X(28) 
VALUE "MAANDELIJKS VERKOOPOVERZICHT''. 
03 COLUMN 46 PICTURE X(6) VALUE "PAGINA". 
03 COLUMN 53 PICTURE Z9 SOURCE PAGE-COUNTER. 
02 LINE PLUS 2. 
03 COLUMN 1 PICTURE X(40) VALUE "GEBIED 
" VERTEGENWOORDIGER VERKOOPDATUM BEDRAG". 
01 VERKOOP-REGEL TYPE DETAIL LINE PLUS 1. 
02 COLUMN 3 PICTURE 9 SOURCE GEBIEDSCODE. 
02 COLUMN 14 PICTURE 9(4) SOURCE VERTEGENWOORDIGERSNR. 
02 COLUMN 35 PICTURE 99B99B99 SOURCE VERKOOPDATUM. 
02 COLUMN 48 PICTURE 7229.99 SOURCE VERKOOPWAARDE. 
01 TYPE CONTROL FOOTING VERTEGENWOORDIGERSNR 
LINE PLUS 1. 
02 COLUMN 9 PICTURE X(24) 
VALUE "TOTAAL VERTEGENWOORDIGER''. 
02 COLUMN 47 PICTURE 7(4)9.99 SUM VERKOOPWAARDE. 
01 TYPE CONTROL FOOTING GEBIEDSCODE 
LINE PLUS 1. 
02 COLUMN 9 PICTURE X(13) VALUE "TOTAAL GEBIED". 
02 COLUMN 46 PICTURE 2(5)9.99 SUM VERKOOPWAARDE. 
01 ТҮРЕ CONTROL FOOTING FINAL 
LINE PLUS 1. 
02 COLUMN 9 PICTURE X(15) VALUE "TOTAAL-GENERAAL'". 
02 COLUMN 45 PICTURE Z(6)9.99 SUM VERKOOPWAARDE. 


1. PAGE COUNTER is een gereserveerd woord voor de paginatel- 
ler, die automatisch door de report writer wordt bijgehouden. 

2. Het eerste record beschrijft twee regels die moeten worden 
afgedrukt op de kop van de pagina. 

3. Het tweede record beschrijft de detailregel, die wordt afge- 
drukt onder besturing van de opdrachten in de Procedure 
Division (zie volgende paragraaf). 

4. De laatste drie records beschrijven de regels die worden afge- 
drukt bij de gespecificeerde controleovergangen, dat wil zeg- 
gen verandering van vertegenwoordiger, verandering van 
gebied en einde van het overzicht. 


De passage SUM houdt in dat het totaal van alle voorafgaande 
VERKOOPWAARDEn die zijn afgedrukt moet worden bijgehouden in 
het desbetreffende veld, dat wil zeggen: steeds wanneer een detail- 
regel is afgedrukt, wordt VERKOOPWAARDE toegevoegd aan de vel- 
den die beginnen in de kolommen 47, 46 en 45 respectievelijk in de 
laatste drie records. Dit doorkruist de algemene regel, dat geen 
rekenkundige bewerkingen mogen worden uitgevoerd met een opge- 
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maakt element, maar dit wordt door de report writer in orde gemaakt. 
Deze velden worden automatisch op nul gezet wanneer de regels 
waarin ze staan zijn afgedrukt. 


Opgave 


1. In de passage SUM kan ook worden verwezen naar een totaalveld 
waarin voor de voorafgaande controleovergang een totaal is bij- 
gehouden. Dat veld moet dan natuurlijk wel een naam hebben 
gekregen. Dit kan een hoop optellingen besparen voor het bij- 
houden van de totalen van de hogere niveaus. Wijzig het voor- 
beeld in deze paragraaf zodanig dat het 'totaal gebied! ontstaat 
door sommatie van de 'totaal vertegenwoordiger's en het totaal- 
generaal' door sommatie van de totaal gebied'en. Tref ook voor- 
zieningen waardoor de totaalregels afgedrukt worden met respec- 
tievelijk dubbele, drievoudige en viervoudige interlinie 


S4 OPDRACHTEN IN DE PROCEDURE DIVISION 


Er bestaan drie specifieke opdrachten om het overzicht te verwer- 

ken. Deze zijn: 

1. INITIATE report-name. Deze opdracht zorgt ervoor dat de 
paginateller zijn beginwaarde krijgt en dat de kop op de eerste 
pagina wordt afgedrukt. 

2, GENERATE record-name: regelt het afdrukken van een detail- 
regel (alle andere regels worden automatisch afgedrukt). 

3. TERMINATE report-name: regelt de afhandeling van de laatste 
controleovergang. Dit telt als een controleovergang voor alle 
controlevelden. MT 


Toepassing van deze opdrachten op ons voorbeeld levert de volgen- 
de Procedure Division op: 


PROCEDURE DIVISION. 
A1-PRODUCEER-VERKOOPOVERZICHT. 
OPEN OUTPUT AFDRUKBESTAND. 
INITIATE VERKOOPOVERZICHT. 
OPEN INPUT VERKOOPBESTAND. 
PERFORM B1-VERWERK-VERKOOPRECORD UNTIL EVB-VERKOOPBESTAND. 
CLOSE VERKOOPBESTAND. 
TERMINATE VERKOOPOVERZICHT. 
CLOSE AFDRUKBESTAND. 
STOP RUN. 
B1-VERWERK-VERKOOPRECORD. 
READ VERKOOPBESTAND 
AT END 
set EVB-VERKOOPBESTAND true 
else 
GENERATE VERKOOP-REGEL. 
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Dit zijn alle opdrachten benodigd om het overzicht zoals is 
beschreven in paragraaf S2 af te drukken. 

Er is geen opgave bij deze paragraaf, maar het zou leerzaam 
zijn een programma te schrijven voor het afdrukken van het over- 
zicht, maar dan zonder gebruikmaking van de report writer. 


ANTWOORDEN HOOFDSTUK 5 


Paragraaf S3 


1. 01 TYPE CONTROL FOOTING VERTEGENWOORDIGERSNR 
LINE PLUS 2. 
02 COLUMN 9 PICTURE X(24) 
VALUE "TOTAAL VERTEGENWOORDIGER'', 

02 TOTVERT COLUMN 47 PICTURE Z(4)9.99 SUM VERKOOPWAARDE. 
01 TYPE CONTROL FOOTING GEBIEDSCODE 

LINE PLUS 3. 

02 COLUMN 9 PICTURE X(13) VALUE "TOTAAL GEBIED". 

02 TOTGEB COLUMN 46 PICTURE Z(5)9.99 SUM TOTVERT. 
01 TYPE CONTROL FOOTING FINAL 

LINE PLUS 4. 

02 COLUMN 9 PICTURE X(15) VALUE "TOTAAL-GENERAAL', 

02 COLUMN 45 PICTURE Z(6)9.99 SUM TOTGEB. 


Wanneer u wilt dat dubbele respectievelijk drievoudige interlinie 
zowel voor als na de eerste respectievelijk de tweede totaalregel 
komt, kunt u dit bereiken door te coderen na 02 TOTVERT.. 


02 LINE PLUS 1. 
en na 02 TOTGEB... 
02 LINE PLUS 2. 


De automatische overgang op nieuwe regel voor de volgende af 
te drukken regel zorgt dan voor een dubbele respectievelijk 
drievoudige interlinie. 

Als slechts twee regels wit worden gewenst tussen de regel 
‘totaal vertegenwoordiger' en de regel 'totaal gebied', moet het 
vooruitgaan van de regel 'totaal gebied' worden verminderd van 
3 naar 2. Evenzo moet het vooruitgaan уап de regel 'totaal- 
generaal! worden verminderd van 4 naar 2. 


Т DIRECT-TOEGANKELIJKE 
BESTANDEN 


T1 DE MAGNEETSCHIJFEENHEID EN HET SCHIJVENPAKKET 


Een schijfeenheid legt informatie vast op het oppervlak van een 
schijf. De aard van de in de praktijk aan te treffen schijven ver- 
schilt aanzienlijk en loopt van de buigzame schijf van 54 inch, die 
enige tienduizenden tekens kan bevatten, tot de harde veelvoudige 
schijven, bevestigd aan een gemeenschappelijke as met een capaci- 
teit van in totaal honderden miljoenen tekens. In dit boek staan 
ongeveer een half miljoen tekens. 

Figuur 47 illustreert een veelvoudig schijvenssysteem met lees- 
en schrijfkoppen die zijn bevestigd aan een beweegbare zoekarm. 
Sommige systemen hebben een vaste arm en leveren een lees/schrijf- 
kop voor ieder spoor op de schijf. 


Со 
—— a 
\ Lees- еп Beweegbare 
Concentrisch schrijfkop arm 
gemonteerde Ki 
schijf Ав 


FIGUUR 47 Het schijvenpakket. 


Terwijl de schijf draait, worden de gegevens door middel van de 
schrijfkop overgebracht en magnetisch vastgelegd op het oppervlak 
in een cirkelvormig spoor. Schijfeenheden bezitten in het algemeen 
tussen de 80 en een paar honderd sporen. Bij een veelvoudig schij- 
vensysteem worden de sporen die toegankelijk zijn op alle schijven 
zonder de zoekarm te bewegen, een cilinder genoemd. 
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Bij een schijfeenheid is ieder record direct toegankelijk, mits 
zijn positie bekend is. Dit gaat als volgt: 

1. Beweeg de kam van lees/ schrijfkoppen naar de juiste positie 
(dit wordt een zoekactie (Engels: seek) genoemd. Deze fase 
wordt weggelaten in het geval van een schijfeenheid met een 
kop per spoor. 

2. Selecteer het vereiste spoor (een kop-switch genaamd). Deze 
fase is niet nodig in het geval van een enkelvoudige schijfeen- 
heid. 

3. Wacht totdat het gewenste record van de draaiende schijf zich 
onder de lees/schrijfkop bevindt ( zoekbewerking; Engels: 
search). 

4, Breng het record met gegevens over. 


Deze fysieke bewerkingen worden automatisch door het bestu- 
ringssysteem uitgevoerd. Zoals straks zal worden toegelicht, zijn 
deze bewerkingen bezien vanuit de programmalogica niet van belang 
voor de programmeur. Maar van programmeurs wordt wel vaak ver- 
wacht dat ze kunnen schatten hoeveel tijd er gaat zitten in het 
ophalen van records op bestanden en daarvoor is kennis van de ken- 
merken van de opslagapparatuur een vereiste. 


Opgaven 


1. Hoeveel cilinders bevinden zich in een schijvenpakket van 200 
Sporen met bewegende koppen? 


2. Hoeveel gegevens kunnen ongeveer worden opgeslagen op een 
cilinder van een schijvenpakket met 6 schijven (10 oppervlak- 
ken) en met 8000 tekens per spoor? 


3. Hoeveel gegevens kunnen ongeveer worden opgeslagen op een 
schijvenpakket van 6 schijven met 400 cilinders en 8000 tekens 
per spoor? 


4. Worden de gegevens op de binnenste sporen met een grotere, 
kleinere of dezelfde dichtheid vastgelegd als de gegevens op de 
buitenste sporen? 


Т2 SEQUENTIËLE BESTANDSORGANISATIE 


Soms wordt onderscheid gemaakt tussen een sequentieel georgani- 
seerd bestand, waarin de records worden opgeslagen in de volgorde 
gedicteerd door in een sleutelveld van het record vastgelegde gege- 
vens, en een serieel georganiseerd bestand, waarin de records in 
geen enkele sleutelvolgorde staan. In COBOL bestaat er tussen 
deze twee geen verschil. Hoewel het verschil de logica van het pro- 
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gramma kan beïnvloeden, zijn beide gevallen sequentiële bestanden 
in COBOL, hetgeen inhoudt dat de enige volgorde waarin records 
kunnen worden teruggelezen dezelfde volgorde is als de volgorde 
waarin ze werden geschreven. 

Bij een sequentieel bestand worden de records achter elkaar op 
een spoor vastgelegd. Wanneer het einde van een spoor wordt 
bereikt, wordt het vastleggen in het algemeen vervolgd op het 
direct eronder gelegen spoor, dat wil zeggen in dezelfde cilinder. 
Deze methode vermindert de zoekactiviteit, die tijdrovend kan zijn. 
Een zoekactie naar de volgende cilinder vindt alleen plaats wanneer 
de eerste cilinder volledig met gegevens is gevuld, enz. Een zoek- 
actie naar een aangrenzende cilinder neemt gewoonlijk enkele milli- 
seconden in beslag. Verschillende systemen kunnen de gegevens 
met meer dan een schrijfkop tegelijk vastleggen, waardoor de gege- 
vensoverdracht versneld wordt. 

Er kunnen verscheidene bestanden op één schijvenpakket wor- 
den vastgelegd (mits de bestanden natuurlijk klein genoeg zijn). 
Gewoonlijk laat men ze ieder een bepaald aantal cilinders bezetten, 
dat wil zeggen dat het bestand begint bij het eerste record op het 
eerste spoor van de eerste cilinder die aan dat bestand is toegewe- 
zen, terwijl het fysieke einde van het bestand staat op het laatste 
record van het laatste spoor van de laatste toegewezen cilinder. 
Indien de eigenlijke bestandsgegevens minder cilinders vereisen 
dan daaraan zijn toegewezen, zal het logische einde van het bestand 
dichter bij het begin staan dan het fysieke einde van het bestand. 
(De terminologie van bestandstoewijzing verschilt aanzienlijk, waar- 
bij de eenheid van toewijzing afwisselend een area (gebied), page 
(pagina) of extent (uitbreiding) wordt genoemd. Soms stemt deze 
eenheid niet overeen met de omvang van een spoor of cilinder. Soms 
kan de omvang van de eenheid van toewijzing door de programmeur 
worden geregeld.) 

Als records worden toegevoegd aan het einde van het bestand 
(dit kan in COBOL door te declareren: OPEN EXTEND bestands- 
naam alvorens weg te schrijven naar het bestand), kan het bestand 
meer ruimte nodig hebben dan dat werd toegewezen. Bij de meeste 
computersystemen zal het besturingssysteem automatisch meer ruim- 
te toewijzen. De methode om het besturingssysteem te vertellen hoe- 
veel ruimte in eerste aanleg te reserveren en hoeveel extra ruimte 
te reserveren steeds wanneer de vorige toewijzing vol is, is niet 
standaard. De meeste systemen stellen de programmeur in staat de 
maximumruimte die bezet mag worden door het bestand voor te 
schrijven. Als deze ruimte wordt overschreden, ontstaat een fout- 
conditie. 

De File-control beschrijving voor een sequentieel bestand op 
schijf luidt: 


FILE-CONTROL. 
SELECT VOORBEELD-SCHIJF-BESTAND ASSIGN TO DISK. 


Het sleutelwoord DISK kan verschillen per fabrikant. 
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Een schijfbestand op deze wijze beschreven wordt precies zo 
verwerkt alsof het een magneetband is, behalve bij het 'ter-plaatse- 
wijzigen', zoals we nu zullen bespreken. 

Een kenmerk van schijfbestanden is dat het bestand kan worden 
bijgewerkt door het overschrijven van de bestaande records — dit 
noemen we ter plaatse wijzigen. Dit kan voordelig zijn in termen 
van verwerkingstijd en programmeringsgemak, maar het is nadelig 
in termen van zekerheid, aangezien de vorige versie van het record 
wordt vernietigd. (Dit nadeel kunnen we ondervangen door ver- 
schillende methoden waarbij de eerdere en latere versies van de 
records op een ander apparaat worden gekopieerd.) 

Voor het volvoeren van een wijziging ter plaatse moeten we na 
een read-opdracht en na wijziging van het record de opdracht 
REWRITE gebruiken. Wanneer een read-opdracht gegeven wordt, 
herinnert het COBOL-systeem zich namelijk de plaats waar het gele- 
zen record stond; wanneer daarna (bij een sequentieel bestand) 
een rewrite-opdracht volgt, wordt het record weggeschreven naar 
dezelfde plaats. Als de records van een sequentieel bestand ter 
plaatse worden gewijzigd en er dus zowel read- als rewrite-opdrach- 
ten zullen plaatsvinden, wordt dit bestand I-O geopend (zowel voor 
input als voor output). 

Een voorbeeld kan wellicht helpen om deze theorie inhoud te 
geven. Veronderstel dat er een sequentieel bestand bestaat, dat 
records van 80 tekens bevat. Als een record alleen maar nullen 
bevat, moet het worden vervangen door een record met de tekens 
**ALLEMAAL NULLEN жє. 


FILE-CONTROL. 
SELECT SCHIJFBESTAND ASSIGN TO DISK. 


FD SCHIJFBESTAND. 
01 5СНІЛҒЕЕС PICTURE Х(80). 


PROCEDURE DIVISION. 
A1-VERWERK-SCHIJFBESTAND. 
OPEN I-O SCHIJFBESTAND. 
perform until einde-schijfbestand 
READ SCHIJFBESTAND 


AT END 
set einde-schijfbestand true 
not end 


MOVE "**ALLEMAAL NULLEN**" TO SCHIJFREC 
REWRITE SCHIJFREC. 


We vatten de verwerking van sequentiële bestanden op schijf 
samen : 
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OPEN OUTPUT - ееп WRITE-opdracht schrijft het record naar 
de volgende sequentiële plaats 

OPEN INPUT - een READ-opdracht haalt het record van de 
volgende sequentiële plaats op 

OPEN 1-0 - een READ-opdracht haalt het record van de 
volgende sequentiële plaats op; een REWRITE- 
opdracht schrijft het record terug naar de 
plaats van het laatst gelezen record. 

OPEN EXTEND - een WRITE-opdracht schrijft het record naar 
de volgende sequentiële plaats achter het 
voorgaande einde van het bestand. 


T3 DIRECTE TOEGANG DOOR RELATIVE KEY 


Bij deze methode kunnen we toegang verkrijgen tot een record door 
het rangnummer van het record in het bestand te vermelden, waar- 
bij we tellen vanaf (relatief ten opzichte van) het begin van het 
bestand. Dit ‘relatieve гесогапиттег' (rangnummer) wordt 
geplaatst in een RELATIVE KEY gegevenselement in de working 
storage. Aangezien het operating system op de hoogte is van de 
bestandsgrenzen en de omvang van de records, berekent het uit- 
gaande van het relatieve recordnummer automatisch het fysieke 
adres voor het ophalen of opslaan van het record. 

Bij het gebruik van relative keys is het relatieve recordnummer 
(of een ander gegeven waar dit relatieve recordnummer van afge- 
leid kan worden) gewoonlijk als een gegevenselement in de records 
van het bestand opgenomen, maar dit is niet noodzakelijk. De File- 
control-paragraaf kan er als volgt uitzien: 


FILE-CONTROL. 
SELECT WERKNEMERSBESTAND ASSIGN TO DISK 
ORGANIZATION IS RELATIVE 
ACCESS MODE IS RANDOM 
RELATIVE KEY IS RECORD-NUMMER. 


Merk op dat ORGANIZATION moet worden gespeld met een 7. 
Als ACCESS MODE IS RANDOM niet wordt gedeclareerd, neemt de 
compiler aan, dat het bestand sequentieel in volgorde van het rela- 
Неуе recordnummer moet worden gelezen. De ORGANIZATION van 
het bestand is een vaste, fysieke eigenschap die niet kan worden 
veranderd, nadat het bestand is gemaakt, door welke declaratie in 
het programma dan ook. De ACCESS MODE kan per programma 
variëren, mits deze verenigbaar is met de ORGANIZATION van het 
bestand (u kunt bijvoorbeeld niet een sequentieel georganiseerd 
bestand voor willekeurige toegankelijkheid (access mode is random) 
declareren). Men zou kunnen denken dat ACCESS MODE, omdat het 
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iets lokaals in het programma is, beter kan worden gedeclareerd in 
de File Definition dan in File-Control, alwaar de ORGANIZATION- 
passage de eigenschap specificeert die globaal is voor alle program- 
ma's; deze mening wordt nu ook door CODASYL gedeeld, maar ze is 
nog niet gestandaardiseerd. 

Een ontwerp van de Data Division voor dit bestand kan er zo 
uitzien: 


FILE SECTION. 
FD WERKNEMERSBESTAND. 
01 WERKN-RECORD. 

02 SALARISADMINISTRATIE-NUMMER PICTURE 9(5). 


WORKING-STORAGE SECTION. 


02 RECORD-NUMMER PICTURE 9(5) COMP SYNC RIGHT. 


Een bestand dat RELATIVE is georganiseerd en met ACCESS 
MODE IS RANDOM, kan worden geopend voor invoer (READ-opdrach- 
ten geoorloofd); uitvoer (WRITE-opdrachten geoorloofd); invoer- 
uitvoer (READ-, REWRITE- en DELETE-opdrachten geoorloofd — 
waarbij de laatste opdracht logischerwijze het record uit het bestand 
weghaalt zodat het niet door een latere READ-opdracht kan worden 
opgehaald). De passage INVALID KEY is beschikbaar bij al deze 
opdrachten om verschillende fouteondities die kunnen ontstaan op 
te sporen (bijvoorbeeld een poging om een READ- of DELETE- 
opdracht uit te voeren van records die er niet zijn). 

Stel dat er 1000 records in WERKNEMERSBESTAND zitten, over- 
eenkomend met de SALARISADMINISTRATIE-NRs 10.000 t/m 11.000. 
Een programma moet van de operator een salarisadministratienummer 
ontvangen (en dit opslaan in W-SAL-NR), het overeenkomstige 
werknemersrecord opzoeken en dit afbeelden. Een ontwerp van de 
opdrachten in de Procedure Division kan er als volgt uitzien: 


OPEN INPUT WERKNEMERSBESTAND. 


ACCEPT W-SAL-NR. 
SUBTRACT 10000 FROM W-SAL-NR GIVING RECORD-NUMMER., 
READ WERKNEMERSBESTAND 
INVALID KEY 
afbeelden "ONGELDIG SALARISADMINISTRATIENUMMER!'' 
andere fouthandelingen uitvoeren 
not invalid 
uitvoer van WERKN-RECORD klaarmaken 
uitvoer afbeelden. 


Zoals reeds vermeld is het mogelijk relatieve bestanden sequen- 
tieel (in volgorde van relatief recordnummer) te verwerken. Het is 
ook mogelijk zo'n bestand dynamisch te verwerken (mengsel van 
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sequentiële еп directe toegangstechniek). Deze voorzieningen zijn 
dezelfde als die worden beschreven voor geïndiceerde bestanden in 
de volgende paragraaf. 


T4 GEÏNDICEERDE BESTANDEN 


Waarschijnlijk is het geïndiceerde bestand (dikwijls index-sequen- 
tieel genoemd) de meest verbreide vorm van directe bestandsorgani- 
satie, De reden hiervan is, dat het bestand zowel sequentieel (in 
volgorde van een gegevenselement dat een sleutelveld is van het 
record, welke volgorde verschillend mag zijn van de volgorde waar- 
in de records werden opgeslagen) als direct (door het specificeren 
van de sleutelwaarde van het gewenste record) toegankelijk kan 
worden gemaakt. 

Kort gezegd wordt het fysieke adres van een record waarvan 
de sleutel bekend is, door de computer opgespoord door middel van 
een hiërarchie van indices. De technische realisatie hiervan ver- 
schilt lichtelijk per fabrikant en behoeft ons nu niet bezig te hou- 
den; belangrijk voor de programmeur is dat hij het gehele bestand 
kan verwerken in volgorde van record key alsof het een gesorteerd 
bestand op magneetband was. Het probleem hoe de gegevens zijn 
opgeslagen wordt automatisch afgehandeld. 

Om een geïndiceerd bestand sequentieel te verwerken in volgor- 
de van record key kunnen de volgende File-Control-opdrachten 
verschijnen: 


SELECT WERKNEMERSBESTAND ASSIGN TO DISK 
ORGANIZATION IS INDEXED 

ACCESS MODE IS SEQUENTIAL 

RECORD KEY IS WERKNEMERS-NUMMER. 


WERKNEMERS-NUMMER is de naam van een veld in de record- 
beschrijving van het WERKNEMERSBESTAND. Als ACCESS MODE IS 
SEQUENTIAL is gespecificeerd, kan het geïndiceerde bestand wor- 
den gemaakt door het schrijven van records in volgorde van record 
key (het bestand moet geopend zijn voor OUTPUT) of ter plaatse 
worden bijgewerkt door REWRITE- of DELETE-opdrachten (geopend 
voor 1-0). READ krijgt пи de passage АТ END; de andere opdrach- 
ten krijgen de passage INVALID KEY. 

Het is ook mogelijk de sequentiële verwerking te beginnen bij 
een andere positie dan het eerste record in het bestand door middel 
van de opdracht START. Indien bijvoorbeeld in het geval hierboven 
WERKNEMERS-NUMMER een groepsveld is dat een afdelingsnummer 
van 2 cijfers en een volgnummer van 4 cijfers bevat en we willen de 
verwerking beginnen bij afdelingsnummer 10, dan kunnen we code- 
ren: 
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FD WERKNEMERSBESTAND. 


02 WERKNEMERS-NUMMER . 
03 AFDELING PICTURE 99. 
03 WERKN-VOLGNR PICTURE 9999. 


OPEN INPUT WERKNEMERSBESTAND. 
MOVE "100000" TO WERKNEMERS-NUMMER. 
START WERKNEMERSBESTAND 
KEY GREATER THAN WERKNEMERS-NUMMER 
INVALID KEY 
DISPLAY "GEEN AFDELINGSNR GROTER DAN 09" 
verdere afhandeling van fout 
not invalid 
repeat until einde-werknemersbestand 
READ WERKNEMERSBESTAND RECORD 
AT END 
set einde-werknemersbestand true 
not end 
verwerk record. 


De eerste uitvoering van de read-opdracht zal het eerste record 
in het bestand dat voldoet aan de gespecificeerde KEY-voorwaarde 
ophalen. Merk op dat in de KEY-passage de gegevensnaam moet 
staan die gespecificeerd is als de RECORD KEY in de FILE-CONTROL 
paragraaf (waarom dit zo is zal duidelijk worden in paragraaf T5). 
De passage INVALID KEY in de START-opdracht wordt uitgevoerd 
indien geen enkel record in het bestand voldoet aan de gespecifi- 
ceerde voorwaarde. 


Om directe toegang tot een geïndiceerd bestand te verkrijgen, dat 
wil zeggen dat we een record uit bijvoorbeeld het WERKNEMERS- 
BESTAND direct inlezen door het specificeren van de gewenste 
record key in WERKNEMERS-NUMMER, zal de paragraaf File- 
Control omvatten: 


SELECT WERKNEMERSBESTAND ASSIGN TO DISK 
ORGANIZATION IS INDEXED 

ACCESS MODE IS RANDOM 

RECORD KEY IS WERKNEMERS-NUMMER. 


Het WERKNEMERSBESTAND kan nu worden geopend voor invoer 
(voor het lezen van een bestaand record met een opgegeven WERK- 
NEMERS-NUMMER), uitvoer (voor het schrijven van een nieuw 
record met een opgegeven WERKNEMERS-NUMMER) of invoer- 
uitvoer (voor het lezen of schrijven zoals hiervoor, of voor 
rewriting of deleting van een bestaand record met een opgegeven 
WERKNEMERS-NUMMER). 
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Tenslotte kan een geïndiceerd bestand gedeeltelijk sequentieel 
en gedeeltelijk direct worden verwerkt door het specificeren van 
een toegangstechniek DYNAMIC: 


SELECT WERKNEMERSBESTAND ASSIGN TO DISK 
ORGANIZATION IS INDEXED 

ACCESS MODE IS DYNAMIC 

RECORD KEY IS WERKNEMERS-NUMMER. 


In dit geval kunnen alle voorzieningen van de directe toegangs- 
techniek worden toegepast maar bovendien kan het bestand sequen- 
tieel worden gelezen vanaf het laatste direct gelezen record of vanaf 
een bepaald punt, gespecificeerd in een START-opdracht, door een 
bijzondere vorm van de read-opdracht: 


READ WERKNEMERSBESTAND NEXT 
AT END 


Men moet inzien dat een bestand eerst moet worden opgebouwd 
door het wegschrijven (WRITE) van gesorteerde records, waarbij 
het bestand voor OUTPUT is geopend, voordat ееп van de mogelijk- 
heden van directe toegang van de index-sequentiële organisatie- 
methode kan worden gebruikt. Deze allereerste opbouw van het 
bestand stelt het operating system in staat de nodige index-tabellen 
op te bouwen. Na deze allereerste opbouw worden de index-tabellen 
steeds automatisch bijgewerkt. 


Opgave 


1. Een monteringenbestand bevat records met 100 tekens en is 
opgebouwd op schijf met geïndiceerde organisatie. De gebruikte 
record key is MONTERINGS-NR en staat in de eerste 10 posities 
van het record. MONTERINGS-NR valt in twee delen uiteen: 
MONTERINGS-GROEP met 5 cijfers, gevolgd door SUB- 
MONTERING met 5 cijfers. De records in het bestand staan in 
logische groepen bij elkaar, waarbij iedere groep één kop record 
voor de gehele montering omvat (nullen staan in het veld SUB- 
MONTERING van dit record), gevolgd door een variabel aantal 
sub-monteringsrecords. Deze laatste records hebben alle dezelf- 
de waarde in MONTERINGS-GROEP zoals verschenen in de kop, 
maar natuurlijk heeft ieder sub-monteringsrecord een uniek 
getal (binnen de groep) dat niet gelijk is aan nul in het veld 
SUB-MONTERING. 

Er moet een programma worden geschreven dat de gegevens van 
alle records voor gegeven monteringen uitlijst. Het nummer van 
de gewenste montering wordt ingetikt in de eerste 5 posities van 
een beeldschermregel. Er kunnen meerdere opvragingen in een 
run voorkomen die niet in een speciale volgorde staan. 
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Ontwerp de voor dit programma noodzakelijke opdrachten voor 
File-Control, Record Description en Procedure Division. 


Т5 WISSELENDE INDICES 


Een bijzonder krachtige toepassingsmogelijkheid bij grote compilers 
is de voorziening: ALTERNATE RECORD KEY. Deze stelt de pro- 
grammeur in staat te specificeren dat een ander veld in het record, 
naast de unieke recordsleutel die in de eerste plaats werd gekozen 
om de logische volgorde van het bestand te regelen, het subject van 
een index moet zijn die toegang tot de records zal verlenen. Tot 
een record met een aangegeven alternatieve sleutel kan men dan 
directe toegang verkrijgen of men kan de records in de sequentiële 
volgorde van de alternatieve sleutel aflopen. De alternatieve 
recordsleutel behoeft niet noodzakelijk unieke waarden in de 
records te hebben, dat wil zeggen dezelfde sleutelwaarde kan in 
meer dan één record verschijnen. 

Het volgende voorbeeld laat zien hoe een VERKOOP-record toe- 
gankelijk kan worden gemaakt door middel van VERKOOP-NR, 
KLANT-NR еп VERTEGENW-NR. 


FILE-CONTROL. 
SELECT VERKOPEN ASSIGN TO DISK 
ORGANIZATION IS INDEXED 
ACCESS MODE SEQUENTIAL 
RECORD KEY IS VERKOOP-NR 
ALTERNATE RECORD KEY IS KLANT-NR WITH DUPLICATES 
ALTERNATE RECORD KEY IS VERTEGENW-NR WITH DUPLICATES. 


FD VERKOPEN, 


01 VERKOOP. 
02 VERKOOP-NR PICTURE 99999, 
02 KLANT-NR PICTURE 9999, 


02 VERTEGENW-NR PICTURE 999. 
02 VERKOOP-DETAILS etc. 


Het bestand wordt in eerste aanleg gemaakt door er records 
gesorteerd op VERKOOP-NR naar weg te schrijven: 


OPEN OUTPUT VERKOPEN 
repeat until einde-van-invoerbestand 
READ invoerbestand 
AT END 
set einde-van-invoerbestand true 
not end 
WRITE VERKOOPRECORD FROM invoerrecord 
INVALID KEY 
fout afhandelen 
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De enige manier waarop volgens mij een invalid key onder deze 
omstandigheden kan ontstaan, afgezien van een mankement in de 
apparatuur, doet zich voor als het wegschrijven van het record tot 
gevolg zou hebben dat het bestand moest worden uitgebreid boven 
de maximale bestandstoewijzing die door de programmeur was gede- 
clareerd. 

Is het bestand eenmaal gemaakt, dan kunnen opvolgende pro- 
gramma's door middel van SELECT hiervan naar wens SEQUENTIAL, 
RANDOM of DYNAMIC gebruik maken. Uitbreiding van het bestand, 
bijvoorbeeld als gevolg van een WRITE van een nieuw record naar 
het bestand, wanneer het open stond voor 1-О, zal ertoe leiden dat 
alle drie indices worden bijgewerkt. De enige andere wijziging ten 
opzichte van de verwerkingen bij de normale geïndiceerde bestands- 
organisatie is dat de programma's moeten specificeren welke index 
moet worden gebruikt, wanneer ze het bestand met READ lezen. 
Als we bijvoorbeeld de eerste verkoop van klant 27 willen terug- 
vinden: 


MOVE 27 TO KLANT-NR. 
READ VERKOPEN RECORD KEY IS KLANT-NR 
INVALID KEY 

PERFORM NIET-ZO'N-KLANT, 


Het systeem zal er nu verder van uitgaan dat KLANT-NR de 
sleutel van het record is, bijvoorbeeld in een READ NEXT-instructie, 
totdat een nadere KEY IS-passage wordt uitgevoerd. Uitgaande van 
het laatste voorbeeld ziet het gehele verhaal met betrekking tot 
klantnummer 27 er als volgt uit: 


repeat until KLANT-NR not = 27 of einde-van-verkopenbestand 
READ VERKOPEN NEXT 
AT END 
set einde-van-verkopenbestand true 
not end 
if KLANT-NR = 27 
verwerk verkooprecord 


ANTWOORDEN HOOFDSTUK T 

Paragraaf T1 

1, 200; 

2. 10 x 8.000 = 80.000 tekens. 

3. 400 х 80.000 = 32 miljoen tekens. 

4. Groter. Er zijn evenveel gegevens op ieder spoor terwijl de spo- 


ren naar het centrum toe korter zijn dan de buitenste sporen. 
Daardoor moeten de gegevens op de binnenste sporen met een 
grotere dichtheid worden vastgelegd. 


Т Direct-toegankelijke bestanden 229 


Paragraaf Т4 


1. 


FILE-CONTROL. 


FD 
01 


SELECT MONTERINGEN ASSIGN TO DISK 
ORGANIZATION IS INDEXED 
ACCESS MODE IS DYNAMIC 
RECORD KEY IS MONTERINGS-NR. 
SELECT VRAGEN ASSIGN TO CARD-READER. 
SELECT AFDRUKBESTAND ASSIGN TO PRINTER. 


MONTERINGEN. 
MONTERINGS-REC. 
02 MONTERINGS-NR. 

03 MONTERINGS-GROEP PICTURE 9(5). 


03 SUB-MONTERING PICTURE 9(5). 
02 VERDERE-GEGEVENS PICTURE X(90). 
VRAGEN. 


02 GEWENSTE-MONTERINGS-GROEP PICTURE 9(5). 


PROCEDURE DIVISION. 


OPEN INPUT MONTERINGEN. 
open andere bestanden 
repeat until einde-vragen 
READ VRAGEN RECORD 
AT END 
set einde-vragen true 
not end 
MOVE GEWENSTE-MONTERINGS-GROEP ТО MONTERINGS-GROEP 
MOVE ZEROS TO SUB-MONTERING 
READ MONTERINGEN RECORD 
INVALID KEY 
display boodschap "MONTERING NIET GEVONDEN" etc 
not invalid 
repeat until einde-MONTERINGEN or 
MONTERINGS-GROEP not = GEWENSTE-MONTERINGS-GROEP 
display de inhoud van MONTERINGS-REC 
READ MONTERINGEN NEXT 
AT END 
set einde-MONTERINGEN true. 


U COMMUNICATIE TUSSEN 
PROGRAMMA'S 


U1 DE BIBLIOTHEEK MET DOELTAAL-PROGRAMMA'S 


We zijn het idee van een programmabibliotheek al tegengekomen bij 
de COPY-opdracht (раг. 01). De COPY-opdracht heeft tot gevolg 
dat de compiler de code in ons programma tijdens de compilering 
opneemt door opdrachten in de uitgangstaal (ook wel brontaal 
genoemd) uit de COBOL-bibliotheek met uitgangstaalopdrachten te 
kopiëren. 

Het is ook mogelijk doeltaal-programma's (Engels: object pro- 
grams) binnen de machine te brengen tijdens de uitvoering van het 
programma door ze te kopiëren uit de bibliotheek met doeltaal-pro- 
gramma's. Evenals een functie werd gebruikt om opdrachten in de 
uitgangstaal in de bibliotheek met uitgangstaalopdrachten op te ber- 
gen, zo wordt een functie, die vaak wordt opgeroepen door het alge- 
mene besturingssysteem van de computer, gebruikt om doeltaal- 
opdrachten op te bergen in de bibliotheek met doeltaal-programma's. 

Deze doeltaal-programma's kunnen het resultaat zijn van een 
COBOL-compilering of van de compilering van een programma in een 
andere taal. 

In de praktijk bevat gewoonlijk elk doeltaal-programma dat voort- 
vloeit uit een COBOL-compilering vele oproepen van algemene sub- 
routines uit de bibliotheek met doeltaal-programma's. In het algemeen 
hoeft de programmeur zich niet bewust te zijn van deze oproepen. 
Typische standaardroutines zijn bijvoorbeeld de omzetting van een 
decimaal getal in een intern binair getal; het blokken en ontblokken 
van records; het opsporen van een record op een geïndiceerd 
bestand bij een gegeven record key. De COBOL-compiler zorgt 
ervoor dat deze oproepen van de subroutines automatisch tijdens 
de uitvoering worden gedaan. 

De logica van compilering en uitvoering kan nu worden beschre- 
ven zoals in figuur 48. 

Dit schema suggereert dat het doeltaal-programma tijdens zijn 
ontwikkeling al wordt toegevoegd aan de bibliotheek met doeltaal- 
programma's; in de praktijk bestaat de bibliotheek uit een produktie- 
bibliotheek en een ontwikkelingsbibliotheek. Programma's die nog 
in ontwikkeling zijn kunnen opgeborgen worden in een van de ont- 
wikkelingsbibliotheken. Pas nadat ze volledig getest en geoperatio- 
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FIGUUR 48 Compilering en uitvoering met gebruik van de 
bibliotheken met uitgangstaalopdrachten en 
doeltaal-programma's. 


naliseerd zijn worden ze in de produktiebibliotheek opgeborgen. 
Gedurende de ontwikkeling kan het door de compiler geproduceerde 
doeltaal-programma dus ook na fase 2 rechtstreeks in de machine 
worden geladen bij fase 4, en kan fase 3 worden overgeslagen. 
Opslag van het programma in een ontwikkelingsgedeelte van de 
bibliotheek zorgt er anderzijds voor dat het rechtstreeks in de 
machine kan worden geladen. Daarmee wordt dan de noodzaak om 
het programma steeds weer te compileren, wanneer het gedraaid 
wordt, vermeden. 


Opgaven 


1. (a) Wordt in figuur 48 de bibliotheek met doeltaal-programma's 
gebruikt in fase 2? 
(b) Denkt u dat het schema helemaal correct is bij fase 2? 
(e) Denkt u dat het schema helemaal correct is bij de fasen 1 
en 3? 


2. Kunt u een COBOL-programma schrijven zonder iets te weten 
over de bibliotheek met doeltaal-programma's? 
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02 DE CALL-OPDRACHT 


COBOL bevat voorzieningen waardoor de programmeur een subrou- 
tine kan oproepen die zich in de bibliotheek met doeltaal-programma's 
bevindt. Dit vereist over het algemeen het opgeven van één of meer 
parameters, dat wil zeggen variabelen of constanten die door de sub- 
routine moeten worden gebruikt. Een subroutine in de bibliotheek 
met doeltaal-programma's wordt in het algemeen een subprogramma 
genoemd om het te onderscheiden van een subroutine uitgevoerd 
door een PERFORM-opdracht in een programma. 

In paragraaf K3 hebben we geconstateerd dat het bevolkings- 
explosie-vraagstuk (Appendix B) opgevat kan worden als bestaande 
uit twee duidelijk onderscheiden componenten, waarvan de ene de 
algehele besturing van het lezen van de invoer en het opleveren 
van de resultaten verzorgt en de andere het afdrukken van één 
pagina met resultaten. Deze laatste component had ook als subpro- 
gramma geïmplementeerd kunnen worden. Dit subprogramma zou ver- 
wachten dat er twee parameters doorgegeven zouden worden bij aan- 
roep, namelijk de grootte van de bevolking bij aanvang en het groei- 
percentage. Hiermee is het in staat de nieuwe bevolkingsgroottes te 
berekenen en de regels van een pagina met resultaten te bepalen 
en af te drukken. 

Het algemene formaat van de CALL-opdracht is: 


CALL 'subprogramma-naam'' (USING parameter-1 [parameter-2]...] 


Als we in het programma dat de algehele besturing verzorgt (het 
hoofdprogramma, of het oproepende (calling) programma) de grootte 
van de bevolking bij aanvang in een gegevenselement met de naam 
BEGINBEV en het groeipercentage in een ander gegevenselement 
met de naam GRPERC hadden geplaatst, zouden we in het hoofdpro- 
gramma kunnen coderen: 


CALL '"'DRUK-PAGINA-AF!' USING BEGINBEV GRPERC. 


De parameters moeten worden opgegeven in de volgorde die het 
subprogramma verwacht en ze moeten de pictures hebben die het 
subprogramma vereist. 

Nadat het subprogramma is uitgevoerd, gaat de besturing over 
naar de op de call volgende COBOL-opdracht. CALL en PERFORM 
hebben dus een identieke logica; PERFORM werkt met in het pro- 
gramma besloten paragrafen, en CALL met subprogramma's die zich 
bevinden in de bibliotheek met doeltaal-programma's. 

In dit voorbeeld zou het subprogramma onder de naam DRUK- 
PAGINA-AF in de bibliotheek met doeltaal-programma's opgenomen 
moeten worden. 
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U3 HET MET CALL OPGEROEPEN SUBPROGRAMMA 


Het met CALL opgeroepen subprogramma kan worden geschreven in 
iedere taal die de computerfabrikant voor dit doel toestaat. De fabri- 
kant stelt richtlijnen vast voor het schrijven van deze programma's, 
zodat later een geslaagde oproep kan worden gedaan. Zijn zowel het 
oproepende als het opgeroepen programma in COBOL geschreven, 
dan worden deze richtlijnen automatisch verzorgd en hoeft de pro- 
grammeur er zich niet om te bekommeren. 

Een COBOL-subprogramma verschilt in twee opzichten van een 
normaal COBOL-programma. Deze betreffen de acceptatie van de 
parameters en de terugkeer naar het oproepende programma. 


Acceptatie van de parameters. Wanneer het subprogramma aan de 
hand van een naam (call by reference) wordt opgeroepen, werkt dit 
subprogramma met (parameter)gegevens die zich in velden binnen 
het oproepende programma bevinden. Wanneer een subprogramma 
aan de hand van een waarde (call by content) wordt opgeroepen, 
worden de gegevens verplaatst van de velden in het oproepende 
programma naar de velden in het opgeroepen programma. Het enige 
praktische verschil is dat bij het oproepen met een waarde het sub- 
programma de inhoud van zijn parametervelden kan aanpassen (of 
verknoeien) zonder de parametervelden in het oproepende program- 
ma te wijzigen. 

Standaard COBOL-programma's worden uitgevoerd op basis van 
een oproep met een naam, hoewel CODASYL heeft voorgesteld de 
mogelijkheid van oproep met een waarde in te voeren. In beide geval- 
len bevinden de gegevens zich oorspronkelijk buiten het subpro- 
gramma. Om deze reden staan de parametervelden bekend als 
externe variabelen van het opgeroepen subprogramma. 

Deze externe variabelen moeten op de een of andere wijze wor- 
den aangeduid. COBOL stelt als verplichting dat externe variabelen 
bij elkaar worden gegroepeerd in een speciale section van de Data 
Division van het subprogramma, de LINKAGE SECTION. In dat geval 
wordt een bijzondere declaratievorm van de Procedure Division 
gebruikt: 


PROCEDURE DIVISION [USING parameter-1 [parameter-2]...]. 


waar de parameters de namen van de externe variabelen zijn. De 
als parameters gebruikte gegevensnamen behoeven niet dezelfde te 
zijn als die in het oproepende programma worden gebruikt, maar 
ze moeten wel in dezelfde volgorde verschijnen en dezelfde picture 
hebben. 


Terugkeer naar het oproepende programma wordt bereikt door het 
coderen van EXIT PROGRAM aan het einde van het subprogramma. 
De besturing keert terug naar de op CALL volgende opdracht in 
het hoofdprogramma. 
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Ons voorbeeld uit paragraaf U2 voortzettend zou het subpro- 
gramma als dit in COBOL werd geschreven, er als volgt uit kunnen 
zien: 


DATA DIVISION. 


LINKAGE SECTION. 
01 PARAMETERS. 
02 BEGINWAARDE-BEV PICTURE 9(10). 
02 GROEI-FACTOR PICTURE 9(6)У9(9). 
PROCEDURE DIVISION USING BEGINWAARDE-BEV GROEI-FACTOR. 


MOVE BEGINWAARDE-BEV TO W-BEV 
Repeat voor elke decade 
COMPUTE W-BEV ROUNDED = W-BEV*GROEI- FACTOR 
ON SIZE ERROR 
druk size error regel af 
EXIT PROGRAM 
not size error 
bereken dichtheid 
on size error 
druk size error regel af 
EXIT PROGRAM 
not size error 
druk regel met resultaten af 
EXIT PROGRAM. 


Merk op hoe het gebruik van EXIT PROGRAM in dit voorbeeld 
een uit de herhaling springende GOTO overbodig maakt. CODASYL 
heeft voorgesteld een soortgelijke opdracht, EXIT PERFORM, in te 
voeren voor gebruik bij interne subroutines. 

In dit voorbeeld is niet nader ingegaan op het probleem hoe in- 
en uitvoer-operaties plaatsvinden in het subprogramma, wanneer 
zowel het opgeroepen als het oproepende programma van dezelfde 
bestanden gebruik moeten maken. Door verschillende computerfa- 
brikanten wordt dit probleem op verschillende wijze opgelost. Som- 
migen staan een globale toegang tot de bestanden toe; anderen bie- 
den de mogelijkheid om een verwijzing naar een bestand in de lijst 
van parameters op te geven. Raadpleeg het technische handboek. 

Zoals reeds gezegd in deel 2 is het gebruik van een apart gecom- 
pileerd subprogramma voor de oplossing van het bevolkingsexplosie- 
vraagstuk nogal overdreven. Er is een nogal grote hoeveelheid extra 
codering vereist bij het gebruik van subprogramma's in COBOL en 
dat is een belemmering om ze veelvuldig toe te passen voor kleine 
routines, die daarom gewoonlijk beter afgehandeld kunnen worden 
met behulp van interne subroutines. Toch wordt een methode van 
werken aanbevolen waarbij de programmeur duidelijk samenhangende 
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functies onderbrengt in subprogramma's met bescheiden omvang, 
elk met eigen lokale variabelen en expliciete parameters en elk met 
de mogelijkheid separaat getest te worden. 


Opgaven 


1. Іп de tekst werd gesuggereerd dat de als parameters gebruikte 
variabelen dezelfde picture in het opgeroepen en oproepende 
programma moeten hebben. Dit is niet helemaal waar. Kunt u 
opgeven in welke belangrijke opzichten de pictures gelijkluidend 
moeten zijn? 


2 U ontwerpt een subprogramma dat werkt op 100 velden in het 
oproepende programma. Waarschijnlijk is hier een fout gemaakt 
(het bereik van de handelingen die in het subprogramma zijn 
opgenomen is te groot), maar aannemend dat u hier toch mee 
wilt doorgaan, hoe kunt u dan vermijden dat bij elke aanroep 
100 namen als parameters worden opgegeven? 


U4 SEGEMENTERING EN OVERLAY 


Opdrachten in de Procedure Division kunnen worden verdeeld in 
sections. We bereiken dit door te declareren: 


section-name SECTION [priority-number]. 


De door de compiler geproduceerde doelcode voor een section 
wordt een segment genoemd. Ieder segment kan afzonderlijk worden 
opgeborgen onder zijn section-name in de bibliotheek met doeltaal- 
programma's. 

Deze segmentering is waardevol wanneer de voor het gehele pro- 
gramma geproduceerde doelcode meer plaats in het geheugen vereist 
dan beschikbaar is in de machine die wordt gebruikt, dat wil zeggen 
wanneer het programma zo groot is dat het niet past in de computer. 
Op grote moderne computers levert dit geen problemen meer op, 
daar het besturingssysteem een groot programma automatisch іп seg- 
menten zal verdelen zonder dat de operator daar iets voor hoeft te 
doen. Op kleinere machines met minder geavanceerde besturings- 
systemen kunnen er wel problemen optreden. Zelfs op een grote 
machine kan het gewenst zijn controle uit te oefenen over de seg- 
mentering om de verwerkingstijd van een programma te verminderen. 
De programmeur kan dan zorgen voor een aantal programmasegmen- 
ten die alleen in de machine worden opgeroepen wanneer ze nodig 
zijn en die dezelfde opslagplaatsen bezetten (overlaying) als een 
eerder uitgevoerd segment. 
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Een voorbeeld kan dit duidelijk maken. Veronderstel dat een 
zeer groot programma moet worden geschreven om een overzicht te 
produceren. Het programma verloopt in drie fasen. In de eerste fase 
worden besturingsrecords gelezen die worden gebruikt om tabellen 
en indicatoren te vormen die de inhoud en de vorm van het rapport 
bepalen. In de tweede fase wordt een bestand in zijn geheel gelezen 
en worden totalen bijgehouden. Tenslotte wordt іп de derde fase 
het overzicht geproduceerd onder gebruikmaking van deze bereken- 
de totalen. 

Om het programma in de machine te laten passen veronderstellen 
we dat de codering voor iedere fase een afzonderlijk segment vormt, 
hetgeen drie segmenten oplevert. De Procedure Division kan dan 
als volgt worden gecodeerd: 


PROCEDURE DIVISION. 
PERMANENT SECTION 0. 
А. 

PERFORM BESTURINGSRECORD. 

PERFORM TE-VERWERKEN-BESTAND. 

PERFORM GEEF-OVERZICHT. 

STOP RUN. 
BESTURINGSRECORD SECTION 2. 

(codering om de besturingskaarten in te lezen, etc.) 
TE-VERWERKEN-BESTAND SECTION 1. 

(codering om het bestand te lezen en totalen bij te houden) 
GEEF-OVERZICHT SECTION 3. 

(codering om het overzicht te produceren) 


De prioriteitsnummers zullen dadelijk worden toegelicht; ze wor- 
den alleen gebruikt om de overlay-sections te onderscheiden van 
de permanent aanwezige sections. 

De volgorde van handelingen in de uitvoering van dit programma 
kan in het diagram op de volgende pagina zichtbaar worden gemaakt. 
We zien dat de geheugenruimte die benodigd is voor de proce- 
dures van dit programma gelijk is aan de som van de permanent aan- 
wezige section plus de grootste overlay-section. Het overbrengen 
van de segmenten naar het directe geheugen wordt verzorgd door 

het besturingssysteem zodra ze benodigd zijn. 

Het overbrengen van een segment neemt natuurlijk enige tijd in 
beslag. Indien een segment herhaaldelijk wordt gebruikt, bijvoor- 
beeld in een lus, kan de tijd die benodigd is voor invoer van de over- 
lays langer zijn dan de tijd om het segment te verwerken. 

U vraagt zich op dit ogenblik wellicht af: "Hoe weet ik van te- 
voren dat mijn programma zo groot is dat het niet in de machine past? 
Indien ik van het ongunstigste uitga en mijn programma drastisch 
segmenteer, kan ik wel eens uitkomen op betaling van een onnodige 
tijdboete wegens overmatige overlay-activiteit. " 

Voor de oplossing van dit probleem bestaan de prioriteitsnum- 
mers. Aan iedere section wordt een prioriteitsnummer van 0 t/m 49 
toegewezen. Aan vaak gebruikte sections wordt een laag nummer 
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Directe geheugen Segmenten geladen vanuit 
ҹа А ; 
FASE 1: PERMANENT | bibliotheek met doeltaal-programma's 


Voer PERMANENT 
aanwezige section uit 


vi? TE-VERWERKEN | СЕЕЕ- 
ehs vn BESTAND [OVERZICHT 


Z GEBIED Z 
ONGEBRUIKT 
Ge 


ҒА5Е 2: PERMANENT 
Voer BESTURINGSRECORD BESTURINGSREC 
Ж 
ҒА5Е 3: РЕКМАМЕМТ 
Voer TE-VERWERKEN- 
BESTAND section uit TE-VERWERKEN 
BESTAND 
FASE 4: PERMANENT 
Voer GEEF-OVERZICHT 
section uit GEEF -OVERZ ICHT 


FIGUUR 49 Fasen in een programma met overlays. 


gegeven (hetgeen hoge prioriteit aangeeft), terwijl zelden gebruikte 
sections een hoog nummer krijgen, dat wil zeggen toenemende prio- 
riteitsnummers worden toegewezen aan sections naarmate hun fre- 
quentie in het gebruik afneemt. Een section die zo vaak wordt 
gebruikt dat hij permanent aanwezig moet zijn (of een section die 

te klein is om je druk over te maken zoals in dit voorbeeld) krijgt 
een prioriteitsnummer 0. Twee of meer sections met hetzelfde priori- 
teitsnummer kunnen in de bibliotheek met doeltaal-programma's 
samengevoegd worden om één segment van doelcode te vormen. 

Een segmentgrensnummer wordt gedefinieerd in de paragraaf 
Object-computer. Sections met een lager prioriteitsnummer dan het 
segmentgrensnummer zijn altijd permanent aanwezig. Sections met 
een prioriteitsnummer dat gelijk is aan of hoger dan het segment- 
grensnummer worden in overlay verwerkt. 

Door dit middel kan bij de eerste test van het programma een 
hoog segmentgrensnummer worden gekozen, bijvoorbeeld 49. Dit 
heeft tot gevolg dat alle sections permanent aanwezig zijn. Als het 
programma in het geheugen past, gaat alles goed. Zo niet, dan kan 
het programma opnieuw worden gecompileerd met een lager segment- 
grensnummer, zodat de minst gebruikte sections in overlay worden 
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verwerkt. Dit proces wordt herhaald totdat het gesegmenteerde pro- 
gramma zo klein is dat het past in de machine. 

In de praktijk bestaat een soortgelijke voorziening van overlay 
voor opgeroepen subprogramma's, indien de compiler deze heeft 
geïmplementeerd als 'Co-routine's'. Als een subprogramma een 'со- 
routine! is, wordt het niet permanent aan het hoofdprogramma 
gekoppeld, maar blijft apart staan in de bibliotheek met doeltaal- 
programma's en wordt alleen tijdens de verwerking bij aanroep door 
een CALL-opdracht in het geheugen gehaald. Normaliter zal het, 
nadat het eenmaal is opgeroepen, in het geheugen blijven staan, 
waarbij zijn variabelen van de ene CALL tot de volgende onveran- 
derd zullen blijven. Maar indien de programmeur dat wenst, kan 
hij de geheugenruimte die door het subprogramma in beslag wordt 
genomen, vrijgeven door een CANCEL-opdracht te geven: 

CANCAL "subprogramma-naam'". De vrijgegeven geheugenruimte 
kan dan voor andere subprogramma's (of voor andere programma's 
bij een multi-programmeringscomputer) benut worden. Als nu in 
een volgende CALL-opdracht hetzelfde subprogramma wordt opge- 
roepen zal het opnieuw geladen worden en krijgen de variabelen de 
waarden zoals die bij compilatie zijn gedeclareerd. 


ANTWOORDEN HOOFDSTUK U 


Paragraaf U1 


1. (а) Neen. 
(р) Neen. Alle programma's van enige complexiteit sluiten waar- 
schijnlijke oproepen naar subroutines in die in de bibliotheek 
met doeltaal-programma's staan en de compiler is zeker een inge- 
wikkeld programma. 
(с) Neen. 


2, Hebt u dat al niet gedaan? 


Paragraaf U3 


1. Ze moeten dezelfde lengte hebben. Numerieke elementen die 
moeten worden gebruikt bij rekenkundige bewerkingen moeten 
dezelfde USAGE-passage hebben en de decimale punt op dezelf- 
de plaats. 


2 Plaats alle 100 variabelen tezamen in een groepsveld en geef het 
groepsveld als de parameter ор. (Opmerking: wanneer we het 
aantal parameters dat bij de aanroep van een subroutine moet 
worden opgegeven beschouwen vanuit het criterium van de reik- 
wijdte van onze aandacht, dan telt een groepsveld dat een dui- 
delijke gegevensstructuur weerspiegeld, zoals een record of 
tabel, slechts als één parameter.) 


APPENDIX A 
VOORBEELDPROGRAMMA 


DE PROGRAMMASPECIFICATIE 


Doel 


De gesorteerde geldige mutatierecords moeten gebruikt worden om 
het klantenbestand bij te werken door een nieuw klantenstambestand 
op te bouwen. Fouten die tijdens de verwerking worden ontdekt 
moeten op de regeldrukker worden afgedrukt. 


Invoer 


Het klantenstambestand (identificatie: KLANTEN) bestaat uit 
records met de volgende indeling: 

1-6 klant-nummer 9(6) 

7 krediet-code X 

8-9 gebieds-code XX 

10-169 naam en adres van klant (4 regels van elk 40 tekens) 

Het mutatiebestand (identificatie: МОТ) heeft records met 
dezelfde indeling als KLANTEN, behalve dat er een additioneel 
teken aan het begin van elk record staat dat de mutatiecode bevat. 
Dit kan zijn: 


1 voor invoegen 

W voor wijzigen en 

V voor verwijderen. 
Uitvoer 


Het klantenstambestand dat wordt uitgevoerd is identiek aan het 
klantenstambestand dat wordt ingevoerd (in de bestandsbibliotheek 
moeten de bestanden van elkaar onderscheiden worden door een 
generatie- of versienummer dat door het besturingssysteem wordt 
toegekend). 

Het foutenverslag moet van geschikte kopregels worden voor- 
zien en bestaat uit de volgende detailregels: 

1-6 klant-nummer 

10 krediet-code 

15-16 gebieds-code 

19-58 naam en adres (voort te zetten over 4 regels) 
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62 mutatie-code 

66- foutboodschap, te weten één van de twee volgende: 
1. "INVOEGING-RECORD ZIT AL IN STAM" 
o "GEEN STAMRECORD VOOR DEZE KLANT". 


Verwerking 


KLANTEN en MUT zijn beide in opklimmende volgorde van klant- 
nummer gesorteerd. De waarden van de velden van MUT zijn reeds 
gevalideerd en records met eenzelfde klantnummer zijn volgens 
mutatiecode in de volgorde І, М en V gesorteerd. 

Aan de hand van KLANTEN en MUT moet een bijgewerkt nieuw 
klantenbestand worden opgebouwd. Als de mutatiecode een invoe- 
ging aangeeft moet het mutatierecord (zonder de mutatiecode) op 
de juiste plaats in het nieuwe klantenbestand worden geplaatst, als 
tenminste niet al een stamrecord voor deze klant bestaat. Als er al 
wel een klant met dit klantnummer bestaat moet het mutatierecord 
afgedrukt worden met bericht 1. Een invoeging wordt nooit gevolgd 
door een wijziging of verwijdering van diezelfde invoeging. 

Als de mutatiecode in MUT een wijziging aangeeft, moet elk niet- 
leeg veld van het mutatierecord het overeenkomstige veld in het 
klantenrecord vervangen. Een wijzigingsrecord kan worden gevolgd 
door verdere wijzigingsrecords of een verwijdering voor hetzelfde 
klantenrecord. Als geen verwijdering volgt moet het klantenrecord, 
nadat alle wijzigingen zijn aangebracht, naar het nieuwe klantenbe- 
stand worden overgebracht. 

Als de mutatiecode een verwijdering aangeeft moet het klanten- 
record niet worden overgebracht naar het nieuwe klantenbestand. 
Na een verwijdering volgt nooit meer een ander mutatierecord voor 
dezelfde klant. 

Als er bij een wijziging of verwijdering geen klantenrecord 
bestaat met hetzelfde klantnummer moet dit mutatierecord worden 
afgedrukt met bericht 2. 

Tussen elk tweetal afgedrukte records van het foutenverslag 
en ook tussen de kop en het eerste afgedrukte record moeten twee 
blanco regels worden opgenomen. Er mogen niet meer dan 50 regels 
op een pagina staan, behalve wanneer daardoor de gegevens van 
een en hetzelfde record over twee pagina's gesplitst zouden moeten 
worden. In dat geval mag het aantal van 50 zoveel als nodig is 
overschreden worden. 


DE PROGRAMMA-UITLIJSTING 


IDENTIFICATION DIVISION. 
PROGRAM-ID. KSBB1. 

“AUTHOR. A.PARKIN. 
XDATE-WRITTEN. SEPTEMBER 1983. 
х 


хВІЈМЕВКЕМ KLANTENSTAMBESTAND 
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*LEES MUTATIEBESTAND 
SLEES OUDE STAMBESTAND 
*HERHAAL TOTDAT EINDE-MUTATIEBESTAND 
HERHAAL TOTDAT EINDE-OUDE-STAMBESTAND 
OF STAM-RECORD-SLEUTEL NIET KLEINER DAN 
MUTATIE-RECORD-SLEUTEL 
BRENG OUDE STAMBESTAND RECORD NAAR 
NIEUW STAMBESTAND RECORD EN SCHRIJF DIT WEC 
LEES OUDE STAMBESTAND 
VERGELIJK STAM-RECORD-SLEUTEL MET MUTATIE-SLEUTEL 
EN EVALUEER MUTATIE-CODE 
WANNEER = EN WIJZIGING 
DOE ‘WIJZIGEN OUDE STAMBESTAND RECORD! 
WANNEER = EN VERWIJDERING 
DOE LEES VOLGENDE OUDE STAMBESTAND RECORD 
WANNEER = EN INVOEGING 
FOUT AFDRUKKEN-INVOEGING BESTAAND RECORD 
WANNEER (EINDE-OUDE-STAMBESTAND OF NIET =) 
EN INVOEGING 
BRENG MUTATIERECORD MINUS MUTATIE-CODE 
OVER NAAR NIEUW STAMBESTAND RECORD 
EN SCHRIJF DIT WEG 
WANNEER (EINDE-OUDE-STAMBESTAND OF NOT =) 
EN (WIJZIGING OF VERWIJDERING) 
FOUT AFDRUKKEN-GEEN STAM 
“HERHAAL TOTDAT EINDE-OUDE-STAMBESTAND 
* BRENG OUDE STAMBESTAND RECORD NAAR 
* NIEUWE STAMBESTAND RECORD EN SCHRIJF DIT WEG 
х LEES OUDE STAMBESTAND 
ж 


XWIJZIGEN OUDE STAMBESTAND RECORD 


кете AR е HR dd dk 


*VOOR IEDER NIET-BLANCO VELD IN MUTATIERECORD 

* BRENG DIT VELD OVER NAAR OVEREENKOMSTIGE 

х VELD IN OUDE STAMBESTAND RECORD 

х 

*N.B. EEN WIJZIGING КАМ WORDEN GEVOLGD DOOR NOG MEER 
“WIJZIGINGEN VOOR DEZELFDE KLANT (GELDT NIET VOOR 
KEEN VERWIJDERING). 

* 


*PROGRAMMA ORGANISATIE 
ЖХ====ш=ы=ш=ш=ш——ш—шш———————— 
XA1-BIJWERKEN-KLANTENSTAMBESTAND 
B1-VERWERK-MUTATIE 
C1 = B2-SCHRIJF-EN-LEES-STAM 
C2-BIJWERKEN-OUDE-STAM 
B2-SCHRIJF-EN-LEES-STAM 


жж HD 
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ENVIRONMENT DIVISION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 
SELECT FA-OUD-STAMBESTAND ASSIGN TO DISK. 
SELECT FB-MUT ASSIGN TO DISK. 
SELECT FC-NIEUW-STAMBESTAND ASSIGN TO DISK. 
SELECT FD-AFDRUKBESTAND ASSIGN TO PRINTER. 

ж RAADPLEEG UW HANDBOEK VOOR DE JUISTE NAAM 

VOOR REGELDRUKKER EN SCHIJVENPAKKET OP UW 

* APPARATUUR 


х 


DATA DIVISION. 
ж 


ж 

FILE SECTION. 

х 

ЕР FA-OUD-STAMBESTAND. 

01 FA-OUD-STAMRECORD. 
02 FA-KLANT-NUMMER PICTURE 9(6). 
02 FA-KREDIET-CODE PICTURE X. 
02 FA-GEBIEDS-CODE PICTURE XX. 


02 FA-NAAM-ADRES PICTURE Х(40). 
* VIER REGELS VAN ELK 10 POSITIES BIJ 
* ALLEREERSTE TESTEN 
* 
ЕР ЕВ-МОТ. 


01 FB-MUTRECORD. 
02 FB-MUTATIE-CODE PICTURE Х. 
88 INVOEGING VALUE 15 ТҮУ; 
88 WIJZIGING VALUE IS "W". 
88 VERWIJDERING VALUE 15 "V". 
02 FB-MUT-DETAILS. 
03 FB-KLANT-NUMMER PICTURE 9(6). 
03 FB-KREDIET-CODE PICTURE X. 
03 FB-GEBIEDS-CODE PICTURE XX. 
03 FB-NAAM-ADRES. 
04 FB-NAW-REGEL OCCURS 4 TIMES PICTURE Х(10). 
* 
Ер _FC-NIEUW-STAMBESTAND. 
01 \FC-NIEUW-STAMRECORD PICTURE Х(49). 
х 


FD FD-AFDRUKBESTAND REPORT IS R-FOUTEN. 


WORKING-STORAGE SECTION. 
ж 
01 _WA-FOUTMELDINGEN. 
* EEN VAN BEIDE MELDINGEN WORDT GEBRUIKT IN EEN 
* R-FOUTEN-GROEP | 
02 FILLER PICTURE X(33) 
VALUE "INVOEGING - RECORD ZIT AL IN ЅТАМ". 
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02 FILLER PICTURE X(33) 
VALUE "GEEN STAMRECORD VOOR DEZE KLANT". 
01 WA-MELDINGEN REDEFINES WA-FOUTMELDINGEN. 
02 WA-MELDING PICTURE X(33) 
OCCURS 2 TIMES INDEXED BY WA. 
х 
01 МВ-СІОВАІ,Е-СОМрІТІЕ5. 
02 WB-EVB-OUD-STAMBESTAND-TEKEN PICTURE X. 
88 EVB-OUD-STAMBESTAND VALUE IS "W", 
02 WB EVB-MUT-TEKEN PICTURE X. 
88 EVB-MUT VALUE IS "W" 
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* 


х 


х 


КЕРОКТ ЅЕСТІОМ. 
RD R-FOUTEN РАСЕ LIMIT 20 LINES 


01 


01 


01 


20 REGELS BIJ EERSTE TESTS 


TYPE PAGE HEADING. 


02 LINE 2. 
03 COLUMN 14 PICTURE X(44) 
VALUE " BIJWERKEN KLANTENSTAMBESTAND - FOUTENVERSLAG". 
03 COLUMN 65 PICTURE X(6) 
VALUE "PAGINA". 
03 COLUMN 72 PICTURE Z9 
SOURCE PAGE-COUNTER. 


02 LINE PLUS 2. 


03 COLUMN 1 


03 COLUMN 15 


PICTURE X(12) 


VALUE "KLANTNR KRDT". 


PICTURE X(11) 


VALUE "GEBIED NAW". 


03 COLUMN 35 PICTURE X(11) 
VALUE "CODE". 
R-FOUTEN-GROEP TYPE DETAIL. 
02 LINE PLUS 2. 
03 COLUMN 1 PICTURE 9(6) 
SOURCE FB-KLANT-NUMMER. 
03 COLUMN 11 PICTURE X 
= SOURCE FB-KREDIET-CODE. 
03 COLUMN 17 PICTURE XX 
SOURCE FB-GEBIEDS-CODE. 
03 COLUMN 23 PICTURE X(10) 
SOURCE FB-NAW-REGEL(1). 
03 COLUMN 37 PICTURE X 
SOURCE FB-MUTATIE-CODE. 
03 COLUMN 40 PICTURE X(33) 
SOURCE WA-MELDING (МА). 
02 LINE PLUS 1. 
03 COLUMN 23 PICTURE X(10) 
SOURCE FB-NAW-REGEL(2) . 
02 LINE PLUS 1. 
03 COLUMN 23 PICTURE X(10) 
SOURCE FB-NAW-REGEL (3). 
02 LINE PLUS 1. 
03 COLUMN 23 PICTURE X(10) 
SOURCE 


FB-NAW-REGEL (4). 


LINE PLUS 2 TYPE REPORT FOOTING. 
02 COLUMN 1 
VALUE "EINDE FOUTEN-VERSLAG'". 


PICTURE X(20) 
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PROCEDURE DIVISION. 
ж 
A1-BIJWERKEN-KLANTENSTAMBESTAND., 
OPEN INPUT FB-MUT. 
MOVE "О" TO WB-EVB-MUT-TEKEN. 
READ FB-MUT 
AT END 
DISPLAY '"PROGRAMMA-FOUT А1 - LEEG МОТАТІЕВЕЅТАМР" 
DISPLAY "BIJWERKEN KLANTENSTAMBESTAND BEEINDIGD" 
CLOSE FB-MUT 
STOP RUN. 
OPEN INPUT FA-OUD-STAMBESTAND. 
MOVE "О" TO WB-EVB-OUD-STAMBESTAND-TEKEN. 
READ FA-OUD-STAMBESTAND 
AT END 
MOVE "ү" TO WB-EVB-OUD-STAMBESTAND=-TEKEN. 
OPEN OUTPUT FD-AFDRUKBESTAND. 
INITIATE R-FOUTEN, 
OPEN OUTPUT FC-NIEUW-STAMBESTAND. 
PERFORM B1-VERWERK-MUTATIE UNTIL EVB-MUT, 
CLOSE FB-MUT. 
PERFORM B2-SCHRIJF-EN-LEES-STAM UNTIL EVB-OUD-STAMBESTAND. 
CLOSE FA-OUD-STAMBESTAND FC-NIEUW-STAMBESTAND WITH LOCK. 
TERMINATE R-FOUTEN. 
CLOSE FD-AFDRUKBESTAND. 
STOP RUN. 
x 
B1-VERWERK-MUTATIE. 
PERFORM B2-SCHRIJF-EN-LEES-STAM UNTIL EVB-OUD-STAMBESTAND 
OR FA-KLANT-NUMMER NOT LESS THAN FB-KLANT-NUMMER. 
IF (NOT EVB-OUD-STAMBESTAND) AND 
FA-KLANT-NUMMER = FB-KLANT-NUMMER 
IF WIJZIGING 
PERFORM C2-BIJWERKEN-OUDE-STAM 
ELSE 
IF VERWIJDERING 
READ FA-OUD-STAMBESTAND 
AT END 
MOVE "О" TO WB-EVB-OUD-STAMBESTAND-TEKEN 
ELSE 
SET WA TO 1 
GENERATE R-FOUTEN-GROEP 
ELSE 
х DUS OF EVB-OUD-STAMBESTAND ОЕ FA-KLANT-NUMMER > 
ж FB-KLANT-NUMMER 
IF INVOEGING 
WRITE FC-NIEUW-STAMRECORD FROM FB-MUT-DETAILS 
ELSE 
ж MOET EEN WIJZIGING OF VERWIJDERING ZIJN 
SET WA TO 2 
GENERATE R-FOUTEN-GROEP. 
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READ FB-MUT 
AT END 
MOVE "М" TO WB-EVB-MUT-TEKEN. 
* 
B2-SCHRIJF-EN-LEES-STAM. 
WRITE FC-NIEUW-STAMRECORD FROM FA-OUD-STAMRECORD. 
READ FA-OUD-STAMBESTAND 
AT END 
MOVE "W" TO WB-EVB-OUD-STAMBESTAND-TEKEN. 
* 
С2-ВІЈМЕККЕМ-ООрЕ-5ТАМ. 
ТЕ FB-KREDIET-CODE МОТ = SPACE 
MOVE FB-KREDIET-CODE TO FA-KREDIET-CODE. 
IF FB-GEBIEDS-CODE NOT = SPACES 
MOVE FB-GEBIEDS-CODE TO FA-GEBIEDS-CODE 
IF FB-NAAM-ADRES NOT = SPACES 
MOVE FB-NAAM-ADRES TO FA-NAAM-ADRES. 


VOORBEELD VAN TESTGEGEVENS 


TEST 1 


Klantenstambestand (1e versie) 


000001АААЕ. MULDER KERKSTR 5 7522 JG ZWOLLE 

000002АА2.7. NOVI NIEUWSTR 67525 PK MAARSSEN 
000010ZZAA. KORFF HERTOGLN 72523 AN DEN HAAG 
99999827777]. STOMPS WOERTST 162597 PK DEN HAAG 


Mutatiebestand 
1000001ВВВ0. BOMMEL PARKLN 8 9999 77 ROMMELDAM. ) 


000002В ) 
W000002 XX EN 
0000002 МІЕОҸЕ-ММ NIEUW ADR NIEUW ADR NIEUW АРК?) 
Ү000010 | Р 


1000500YYYA.HENDRIKSH.D.MANPK73411 ZN LOPIK *) 
WOOO6OOCCCN.V.VEEN DAMSIGT 392424 PS VOORBURG `) 
V000700VVVNOBODY NOWHERE 0000 AA NOTHING $) 
1999999HHHI.GEERLINGVIERSL. 632317 KL BLARICUM ”) 


Het mutatiebestand eindigt na het stambestand. 
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Voorspellingen bij mutaties: 


1) Deze moet fout gaan: klantnummer bestaat al. 

2) Drie mutaties voor dezelfde klant die uitgevoerd zullen worden. 

3) Een verwijdering van klant 10 die uitgevoerd zal worden. 

4) Een correcte invoeging. 

о) en 6) Een wijziging en een verwijdering waarvoor geen stam- 
records bestaan. Beide moeten foutmeldingen opleveren. 

1) Een correcte invoeging aan het einde van het stambestand. 


Het foutenverslag zal er als volgt uitzien: 


BIJWERKEN KLANTENSTAMBESTAND FOUTENVERSLAG 
KLANTNR KRDT GEBIED NAW CODE 
000001 B BB О. BOMMEL І INVOEGING - RECORD ZIT AL IN STAM 
PARKLN 8 
9999 22 
ROMMELDAM 


000600 C CC N.V.VEEN W GEEN STAMRECORD VOOR DEZE KLANT 
DAMSIGT 39 
2424 PS 
VOORBURG 


000700 V үү NOBODY V GEEN STAMRECORD VOOR DEZE KLANT 
NOWHERE 
0000 AA 
NOTHING 

(en op de volgende pagina) 


EINDE FOUTEN-VERSLAG 


Klantenstambestand (2e versie) zal er als volgt uitzien: 


000001АААЕ. MULDER KERKSTR 5 7522 JG ZWOLLE correct 
OOOOO2BXXNIEUWE NM NIEUW ADR NIEUW ADR NIEUW ADR gewijzigd 
OOO5OOYYYA. HENDRIKSH.D.MANPK73411 ZN ТОРІК ingevoegd 


999998722.7.5ТОМР5 WOERTST 162597 PK DEN HAAG correct 
999999YHHHI.GEERLINGVIERSL. 632361 KL BLARICUM ingevoegd 
(Record van klant 10 is terecht verwijderd) 
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ТЕ5Т 2 
Klantenstambestand (2e versie) 


Mutatiebestand 


IO000000IIIH. BOTH WOERTSTR162597 PK DEN НААС?) 
1999997МММР. SCHALK RUYTERLN3 2020 PP LISSE 7) 


1) Een invoeging helemaal aan het begin van het bestand. 
2) Een invoeging voordat het einde is bereikt. 
Het mutatiebestand eindigt nu eerder dan het stambestand. 


Het klantenbestand (3e versie) zal luiden: 


000000ІТІН. BOTH WOERTSTR162597 PK DEN HAAG ingevoegd 


000001АААЕ. MULDER KERKSTR 5 7522 JG ZWOLLE correct 
000002ВХХМІЕТМЕ NM NIEUW ADR NIEUW ADR NIEUW ADR correct 
000500YYYA.HENDRIKSH.D.MANPK73411 ZN ТОРІК correct 
999997MMNP. SCHALK RUYTERLN3 2020 PP LISSE ingevoegd 


999998222J. STOMPS WOERTSTR162597 PK DEN HAAG correct 
999999HHHI.GEERLINGVIERSL. 632361 KL BLARICUM correct 


APPENDIX В EEN BLOEMLEZING 
VAN PRAKTIJKOPGAVEN 


1 De bevolkingsexplosie 


De wereldbevolking in zeker jaar omvat 4.000 miljoen zielen. De aar- 
de is een bol met een straal van 6.350 km en tweederde van haar 
oppervlak is water. Het oppervlak van een bol is: 
4 x 3.1416 x het kwadraat van de straal. 
Schrijf een programma dat de wereldbevolking en de bevolkings- 
dichtheid (aantal bewoners per vierkante km) met intervallen van 
10 jaar voor de volgende 20 decaden afdrukt (waarbij de eerste 
detailregel de bevolking na afloop van de eerste decade weergeeft). 
De afgedrukte tekst moet er als volgt uitzien: 


Eerste regel - Posities 1-5 Aangenomen groeipercentage 
% (Z9.99) 
Opvolgende regels - Posities 1-4 Het jaartal (vier cijfers) 
8-17 De bevolking (99,999,999) 
in miljoenen 
23-29 De dichtheid/vierk.km 
(999,999). 


Tussen de regels moet een dubbele interlinie worden aangehou- 
den en niet-significante nullen in de antwoorden moeten worden weg- 
gelaten. | 

Het groeipercentage is aangebracht ор een record іп de kolommen 
1-4 met een denkbeeldige decimale punt tussen het tweede en derde 
cijfer. Er kan meer dan één record zijn, in welk geval de resultaten 
met betrekking tot ieder aangenomen groeipercentage moeten wor- 
den afgedrukt op een nieuwe pagina (een pagina per ingelezen 
record). 

Als een SIZE ERROR optreedt in de berekeningen voor een 
record, druk dan SIZE ERROR af in de posities 1 t/m 10 en ga door 
met het volgende record. 
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2 Aanwezigheid уап studenten 
Een studentenbestand is opgeslagen in de volgende vorm: 


Identificatie: STUDENTEN 
Gegevensrecords (in blokken van tien) 
1-6 Studentnummer 
1-25 Studentnaam 
7-21 Familienaam 
22-25 Beginletters van voornamen 
26-30 Cursuscode 
31-33 Totaal aantal uren gegeven 
34-36 Totaal aantal uren gevolgd 
37-39 Maximale score voor practicum 
40-42 Behaalde score voor practicum 


Er moet een overzicht worden gemaakt dat de namen van die studen- 
ten noemt die 25% of meer lesuren hebben gemist en daardoor gevaar 
lopen zich te diskwalificeren voor het eindexamen. Het overzicht 
dient als volgt te worden afgedrukt: 


1-6 Studentnummer 

10-28 Studentnaam 

35-39 Cursuscode 

45-47 Totaal aantal uren gegeven 

53-55 Totaal aantal uren gevolgd 

61-62 % aanwezigheid (twee cijfers; rest afkappen; 
gevolgd door percentage-teken). 


3 Bevolkingsexplosie: deel Il 


Wijzig het overzicht dat in opgave 1 is gemaakt als volgt: 

(a) Een kop BEVOLKINGSRAMING: AANGENOMEN GROEIPERCEN- 
ТАСЕ = 79.99% moet worden afgedrukt boven aan iedere pagina, 
gevolgd door een kop JAAR BEVOLKING DICHTH/VIERK.KM. die 
TWEE MAAL over de pagina wordt afgedrukt, dat wil zeggen te 
beginnen bij positie 1 en opnieuw bij positie 60. 

(b) De resultaten moeten worden uitgelijst іп de aldus gevormde 
paginahelften: de eerste tien decaden in de posities 1 t/m 29 zoals 
hiervoor, de volgende tien decaden in de posities 60 t/m 88. De 
boodschap SIZE ERROR moet beginnen te verschijnen in de posities 
1 of 60, al naar gelang dat vereist is. 
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4 Gedicht 


Een reeks Nederlandse woorden zijn op magneetband onder de label 
"GEDICHT" opgeslagen. De reeks woorden wordt in regels met een 
variabele lengte van niet meer dan 80 tekens verdeeld door het enke- 
le teken "/", Ieder fysiek record op de band heeft een lengte van 
800 tekens. De laatste regel van een record kan doorlopen op het 
volgende record, dat wil zeggen een regel kan door de recordgren- 
zen in tweeën gesplitst worden. 

Schrijf een programma dat de band leest en de woorden zodanig 
afdrukt dat iedere nieuwe regel begint bij positie 30. Het teken "ж" 
duidt aan dat we aan het einde van een regel zijn en dat er geen 
verdere regels in het record zijn; het volgende record moet worden 
ingelezen. 

De scheidingstekens "/" en "ж" moeten niet worden afgedrukt. 
Lege regels moeten als blanco regels worden afgedrukt. 

Aan het einde van de afgedrukte tekst moet u met passende 
opschriften het aantal klinkers en medeklinkers in het bestand 
afdrukken (speciale tekens, zoals spaties en cijfers worden niet 
geteld). 


5 Koopgewoontes 


(a) Schrijf een programma waardoor een stambestand ontstaat van 
de koopgewoontes van klanten. Ieder record heeft de volgende vorm: 


1-40 Naam en adres 

42-45 Rekeningnummer van 4 cijfers 

50-55 Aantal geplaatste orders boven f 4.000,- 

60-65 Aantal geplaatste orders van f 4.000,- en minder. 


De records moeten in volgorde van rekeningnummer staan. 


(b) Er bestaan records met de volgende indeling om het bovenstaan- 
de bestand bij te werken: 
1-4 Rekeningnummer 
10-20 Waarde van order deze week geplaatst. 

Ga er van uit dat de records op volgorde van rekeningnummer 
staan en dat de twee velden numeriek zijn. Niet alle records van 
het stambestand worden noodzakelijkerwijs elke week bijgewerkt. 
Schrijf een programma voor het bijwerken van het stambestand мааг- 
bij ееп nieuw stambestand wordt opgebouwd, en het afdrukken van 
iedere mutatie voor niet-bestaande klanten op de regeldrukker. De 
waarde-velden hebben 2 decimale posities. Ontwerp zelf een inde- 
ling voor het foutenverslag. 
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6 Magisch vierkant 


Een magisch vierkant is een twee-dimensionale tabel met de eigen- 
schap dat de som van de getallen in iedere rij, iedere kolom en iede- 
re diagonaal allemaal gelijk zijn. 

Schrijf een programma met gebruikmaking van PERFORM... 
VARYING dat vaststelt of een gegeven 4x4-tabel met tweecijferige 
getallen wel of geen magisch vierkant is. Druk het vierkant af met 
een passende boodschap. Voer de te testen vierkanten in op basis 
van records met een indeling naar eigen keus. (Enthousiastelingen 
mogen proberen een programma te schrijven voor tabellen van wille- 
keurige omvang tot 20x20 toe, waarbij het record niet alleen de 
waarde maar ook de dimensie aangeeft.) 


7 Aanwezigheid van studenten: deel Il 


Wijzig opgave 2 zo, dat de regels van het overzicht worden afge- 
drukt in volgorde van studentnummer binnen volgorde van totaal 
aantal uren gevolgd binnen volgorde van cursuscode (opklimmend). 


8 Koopgewoontes: deel Il 


Wijzig opgave 5 zo, dat het stambestand een relatief of sequentieel 
georganiseerd bestand op schijf wordt. Werk de records ter plaatse 
bij. 


9 Kredietkaarthouders 


Een bestand van kredietkaarthouders is sequentieel georganiseerd 
en aangebracht op magneetband. Maandelijks vindt een mutatiever- 
werking plaats. Het mutatiebestand is eveneens sequentieel georga- 
niseerd en op magneetband aangebracht. Het is mogelijk dat er meer- 
dere mutaties met eenzelfde kaarthoudersnummer bestaan. De muta- 
ties kunnen zijn: 
- debetposten, die getotaliseerd moeten worden voor goederen die 
de houders met hun kaart hebben gekocht, 
- ereditposten, die in mindering komen op de debettotalen , 
- betalingen, die getotaliseerd moeten worden, 
- terugbetalingen, die in mindering komen op het betalingentotaal. 
De totalen van debetposten en betalingen gedurende een maand 
worden ook in het stambestand opgenomen. Voordat een record naar 
het nieuwe stambestand wordt weggeschreven moet het saldo van de 
houder worden bijgewerkt, dat wil zeggen dat het debettotaal bij het 
oude saldo moet worden opgeteld, het betalingentotaal ervan moet 
worden afgetrokken en een rente van 1,5%, te berekenen over het 
beginsaldo van de maand, erbij moet worden opgeteld. (Het bijge- 
werkte bestand wordt in een volgende computergang gebruikt om 
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fakturen aan te maken, waarbij ook de krediet-limiet en het minimum 
faktuurbedrag worden bepaald, maar dat valt buiten deze opgave.) 

Alle mutaties moeten op de regeldrukker worden uitgelijst en 
ook voor controledoeleinden worden getotaliseerd. Ze moeten name- 
lijk overeenkomen met de aantallen voor de vier soorten mutaties. 
Deze aantallen staan in het staartlabelrecord waarvan het kaarthou- 
dersnummer de waarde HIGH-VALUE heeft. Bedenk ook controle- 
totalen voor het stambestand-oud, stambestand-nieuw en afdruk- 
bestand. 

Als een kaarthoudersnummer van een mutatie niet in het stam- 
bestand voorkomt, moet deze mutatie met een foutmelding erbij 
worden afgedrukt. Treedt een andere fout op, dan moet u een bood- 
schap op het bedieningspaneel afdrukken waaruit blijkt in welke 
paragraaf deze fout optreedt en de run beëindigen. U dient alles 
wat u in dit boek hebt geleerd: gestructureerde aanpak, documen- 
tatie, controle, enz. in deze opgave toe te passen. 


АССЕРТ 
АССЕ55 
ADD 
ADDRESS 
ADVANCING 
AFTER 
ALL 
ALPHABET IC 
ALSO 
ALTER 
ALTERNATE 
AND 

ARE 

AREA 
AREAS 
ASCEND ING 
ASSIGN 

AT 
AUTHOR 
BEFORE 
BLANK 


CHARACTER 
CHARACTERS 
CLOCK-UNITS 
CLOSE 

COBOL 

CODE 
CODE-SET 
COLLATING 
COLUMN 


APPENDIX C 
LIJST VAN IN ANS-COBOL 
GERESERVEERDE WOORDEN 


COMMA 
COMMUNICATION 
COMP 
COMPUTATIONAL 
COMPUTE 

CONF IGURATION 
CONTAINS 
CONTROL 
CONTROLS 

COPY 

CORR 
CORRESPONDING 
COUNT 
CURRENCY 

DATA 

DATE 
DATE-COMP ILED 
DATE-WRITTEN 
DAY 

DE 
DEBUG-CONTENTS 
DEBUG- ITEM 
DEBUG-LINE 
DEBUG-NAME 
DEBUG-SUB-1 
DEBUG-SUB-2 
DEBUG-SUB-3 
DECIMAL-POINT 
DECLARATIVES 
DELETE 
DELIMITED 
DELIMITER 
DEPENDING 
DESCENDING 
DESTINATION 
DETAIL 
DISABLE 
DISPLAY 


DIVIDE 
DIVISION 
DOWN 
DUPLICATES 
DYNAMIC 
EGI 

ELSE 

EMI 

ENABLE 
END 
END-OF-PAGE 
ENTER 
ENVIRONMENT 
EOP 

EQUAL 
ERROR 

ESI 

EVERY 
EXCEPTION 
EXIT 
EXTEND 

FD 

FILE 
FILE-CONTROL 
FILLER 
FINAL 
FIRST 
FOOTING 
FOR 

FROM 
GENERATE 
GIVING 


HIGH-VALUE 
HIGH-VALUES 


1-0 
1-0-CONTROL 
IDENTIFICATION 
IF 

IN 

INDEX 
INDEXED 
INDICATE 
INITIAL 
INITIATE 
INPUT 
INPUT-OUTPUT 
INSPECT 
INSTALLATION 
INTO 

INVALID 

IS 

JUST 
JUSTIFIED 
KEY 

LABEL 

LAST 

LEADING 
LEFT 

LENGTH 

LESS 

LIMIT 

LIMITS 
LINAGE 
LINAGE-COUNTER 
LINE 
LINE-COUNTER 
LINES 
LINKAGE 
LOCK 
LOW-VALUES 
MEMORY 

MERGE 
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EEE уе че WOOFGEN до 


МЕ55АСЕ 
MODE 
MODULES 
MOVE 
MULTIPLE 
MULTIPLY 
NATIVE 
NEGATIVE 
NEXT 

NO 

NOT 
NUMBER 
NUMERIC 
OBJECT-COMPUTER 
OCCURS 
OF 

OFF 
OMITTED 
ON 

OPEN 
OPTIONAL 
OR 
ORGANIZATION 
OUTPUT 
OVERFLOW 
PAGE 
PAGE-COUNTER 
PERFORM 
PF 

PH 

PIC 
PICTURE 
PLUS 
POINTER 
POSITION 
POSITIVE 
PRINTING 


PROCEDURE 
PROCEDURES 
PROCEED 
PROGRAM 
PROGRAM- ID 
QUEUE 
QUOTE 
QUOTES 
RANDOM 

RD 

READ 
RECEIVE 
RECORD 
RECORDS 
REDEFINES 
REEL 
REFERENCES 
RELATIVE 
RELEASE 
REMAINDER 
REMOVAL 
RENAMES 
REPLACING 
REPORT 
REPORTING 
REPORTS 
RERUN 
RESERVE 
RESE 
RETURN 
REVERSED 
REWIND 
REWRITE 
RF 

RH 

RIGHT 
ROUNDED 


SEARCH 
SECTION 
SECURITY 
SEGMENT-LIMIT 
SELECT 

SEND 
SENTENCE 
SEPARATE 
SEQUENCE 
SEQUENTIAL 
SET 

SIGN 

SIZE 

SORT 
SORT-MERGE 
SOURCE 
SOURCE-COMPUTER 
SPACE 

SPACES 
SPECIAL-NAMES 
STANDARD 
STANDARD- 1 
START 

STATUS 

STOP 

STRING 
SUB-QUEUE-1 
SUB-QUEUE-2 
SUB-QUEUE- 3 
SUBTRACT 

SUM 

SUPPRESS 
SYMBOLIC 


SYNC 
SYNCHRONIZED 
TABLE 
TALLY ING 
TAPE 
TERMINAL 
TERMINATE 
TEXT 

THAN 
THROUGH 
THRU 


TOP 
TRAILING 
TYPE 
UNIT 
UNSTRING 
UNTIL 

UP 

UPON 
USAGE 
USE 
USING 
VALUE 
VALUES 
VARYING 
WHEN 
WITH 
WORDS 
WORKING-STORAGE 
WRITE 
ZERO 
ZEROES 
ZEROS 


APPENDIX D 
OVERZICHT VAN FORMATEN VAN 
ANS-COBOL 


Deze vormen weerspiegelen de volledige 1974 American National 
Standard voor COBOL, uitgezonderd de voorzieningen met betrek- 
king tot berichtenverkeer en uitgezonderd de voorzieningen waar- 
van CODASYL heeft voorgesteld ze te laten vervallen. In alle geval- 
len waar THRU staat, is THROUGH een geoorloofd alternatief. De 
term 'identifier' betekent een normale, een gekwalificeerde of een 
geïndiceerde gegevensnaam. 


OPDRACHT VOOR COMPILER 


COPY сехе-папе (ОҒ ibrary-nane | 
ee 


REPLACINGd 4 identifier”! BY 
— L WA 3 d 3 Sec — 


word-1 


literal-2 


<<pseudo-text-2>> 
сн | 
word-2 


IDENTIFICATION DIVISION BESCHRIJVINGEN 
IDENTIFICATION DIVISION. 


PROGRAM-ID. program-name. 


ENVIRONMENT DIVISION BESCHRIJVINGEN 
ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. computer-name [WITH DEBUGGING MODE]. 


OBJECT-COMPUTER. computer=-name 
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WORDS 
| мемову SIZE integer | CHARACTERS | 
MODULES 


[PROGRAM COLLATING SEQUENCE is alphabet-name] 
[SEGMENT-LIMIT IS segment-number]. 


5РЕСІЛДІ,-МАМЕ5. 


IS mnemonic-name-1 (ОМ STATUS IS condition-name-{ 
IS mnemonic-name-2 [OFF STATUS I IS condition-name-2 
ON STATUS IS condition-name-5 

OFF STATUS I IS condition-name-7 


[OFF STATUS IS condition-name-2]] 

[ON STATUS 15. condition=name-4] ] ] 
[OFF STATUS I IS condition-name-6] Ze 
[ON ` STATUS туч сопаіёіоп-пате-8] 


[ітр1етепёог-пате 


STANDARD- 1 

NATIVE 

implementor-name 

еи р literal-2 | 
ALSO literal-2 [ALSO literal- xQ]. ei 

THRU literal-6 ] 

ALSO literal-7 [ALSO literal-8]... 


[alphabet-name IS 
[literal-5 [ш 


CURRENCY SIGN IS literal-9 DECIMAL-POINT IS COMMA . 
[INPUT-OUTPUT SECTION. 
(FILE-CONTROL. 
(Format 1: Sequential organisation) 
{SELECT [OPTIONAL] file-name ASSIGN TO implementor-name-1 


[implementor-name-2] 


AREA 
AREAS 


[ACCESS MODE IS SEQUENTIAL] [FILE STATUS IS даса-пате]}... 


[RESERVE integer | ORGANIZATION IS SEQUENTIAL 


(Format 2: Relative organisation) 


[ SELECT file-name ASSIGN TO implementor-name-1 [implementor-name-2] 


AREA 


[RESERVE integer АКВА, 


| ORGANIZATION IS RELATIVE 
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SEQUENTIAL [RELATIVE KEY IS даса-паше- 1 | 
[ACCESS MODE IS/| RANDOM S ` 
— DYNAMIC RELATIVE KEY IS data-name-1 
[FILE STATUS IS data-name-2]} ‚Жз 
(Format 3: Indexed organisation) 
{SELECT file-name ASSIGN ТО implementor-name-{| [ітр1етепёог-пате-2]. 
š AREA 
[RESERVE integer ORGANIZATION IS INDEXED 
— AREAS | --------- — 
SEQUENTIAL 
[ACCESS MODE IS { RANDOM 1 RECORD KEY IS data-name-| 
DYNAMIC 
[ALTERNATE RECORD KEY IS data-name-2 [WITH DUPLICATES]] ... 
[FILE STATUS IS data-name-3])...] 


[I-O-CONTROL. 


[RERUN [ON file-name-1 ] 
—— "—— |implementor-name 
„| UNIT 
PAD: ЧЕ REEL OF file-name-2 
EVERY {| integer-1 RECORDS 


integer-2 CLOCK-UNITS 
condition-name 


RECORD 
[SAME | SORT AREA FOR file-name-3 ІҒ11е-паше-41...1... 


'SORT-MERGE 
[MULTIPLE FILE TAPE CONTAINS file-name-5 [POSITION integer-3] 


ІҒі1е-паше-6 [POSITION іпгерег-411...1... .1 


DATA DIVISION BESCHRIJVINGEN 
[FILE SECTION. 


[FD file-name 
_ : _„ [RECORDS 
[BLOCK CONTAINS [integer-1 TO] integer-2 EC, |] 


[RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS] 


RECORDS ei E 


гави, (BEE 15 OMITTED 
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eer ] 


[УАШЕ ОЕ implementor-name-1 IS te 


data-name-5 


іпёерег-5 


[LINAGE IS | literal-6 


| LINES [WITH FOOTING AT ма 


ааға-пате-7 


integer-7 


[LINES AT oef 
integer-8 


ШЕ АТ BOTTOM тава паве" d 


[CODE-SET IS alphabet-name] 


REPORT IS 
үкінің АВЕ | Feport-name-{ (героге-паше-21|...1. 


[тесогі-деѕсгірёіоп-епёгу]...]... 
[WORKING-STORAGE SECTION. 


11-level-description-entry ] 
record-description-entry |777 


[LINKAGE SECTION. 


77-1еуе1-деѕсгірііоп-епёгу ] 
record-description-entry | |777 


(REPORT SECTION. 
[RD report-name 


[CODE literal-1] 


CONTROLS АКЕ | |data-name-1 [data-name-2]... 
CONTROL | IS FINAL [data-name-1 [data-name-2]...] 


LIMIT IS LINE 


LIMITS m integer-| кл HEADING integer-2] 


[PAGE | 


[FIRST DETAIL іпіерег-3] [LAST DETAIL integer-4] 
[FOOTING іпёерег-5]]. 


[report-group-description-entry]...]...] 


BESCHRIJVINGEN VAN GEGEVENS 
(Format 1) 


data-name-1 


level-number ЕЗ 


| (REDEFINES data-name-2] 
LE 


РІС | IS picture-string] 
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COMPUTATIONAL 
COMP ] 
DISPLAY 

INDEX 


[USAGE IS 


LEADING 


[[SIGN e WE, 


| [SEPARATE CHARACTER] ] 


[OCCURS integer-1 TO integer-2 TIMES DEPENDING ON data-name-3 
=== |integer-2 TIMES 
(ЕЕЕ IS data-name-4 [дага-паше-5]... |... 


[INDEXED BY index-name-1 [index-name-2]...]] 
JE | [Т | 


SYNC RIGHT 
JUSTIFIED | 
жк | RIGHT] 


(BLANK WHEN ZERO] 
(VALUE IS literal]. 
(Format 2) 


66 data-name-1 RENAMES data-name-2 [THRU data-name-3] 


(Format 3) 


VALUE IS 


VALUES ARE literal-1 [THRU literal-2] 


88 condition-name | 


[literal-3 [THRU literal-4]].. 


BESCHRIJVINGEN VAN REPORT GROUP 
(Format 1) 


01 [data-name-1] 


integer-1 on NEXT AE 


LLENE ЖИН [ч integer-2 


_(integer-3 
[NEXT GROUP IS | PLUS integer-4 (1 
NEXT PAGE 


D Formaten уап ANS-COBOL 261 
ed Formaten уап ANS-COBOL 261 


REPORT HEADING 

RH 

PAGE HEADING 

PH 

CONTROL HEADING data-name-2 
CH FINAL 
DETAIL 
DE 
CONTROL FOOTING data-name-3 
CF 

PAGE FOOTING 

PF 

REPORT FOOTING 

RF 


TYPE IS 


[[USAGE IS] DISPLAY]. 
(Format 2) 


level-number [data-name-1] 


integer-1 ON МЕХТ PAGE 
ss РЕВА Ts. PLUS integer-2 


[[USAGE IS] DISPLAY]. 
(Format 3) 
level-number [data-name-1] 
[BLANK WHEN ZERO] 


[GROUP INDICATE] 


(тет 


JUST | RIGHT] 


integer-1 ON NEXT PAGE 
[LINE NUMBER IS не йш Р TE ] 


[COLUMN NUMBER IS integer-3] 


PICTURE i ; 
LGT IS picture-string 


SOURCE IS identifier-1 
VALUE IS literal 
SUM identifier-2 [identifier-3]... 
[UPON data-name-2 [ааса-пате-3]...]}... 


data-name-4 
[RESET ON kan INAL š 


[[USAGE IS] DISPLAY]. 
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PROCEDURE DIVISION BESCHRIJVINGEN 
PROCEDURE DIVISION [USING data-name-1 [data-name-2]...] 
(Format 1 with sections) 

[section-name SECTION [segment-number]. 
[paragraph-name. Ізепсепсе|...1...)... 
(Format 2 without sections) 
{paragraph-name. [ѕепёепсе]...}... 
(Format 3 with declaratives) 
DECLARATIVES. 

(declarative-section}.… 

END DECLARATIVES. 

{sect ion-name SECTION [segment-number]. 


[рагаргарһ-пате. [ѕепсепсе]...]...}... 


СОВО -ОРОКАСНТЕМ 


mnemonic=name 


€ e DATE 
ACCEPT identifier [FROM DAT ] 
TIME 
identifier-1|| identif ier-2 i Ka 
ADD sssi > Uert? | TO identifier-m [ROUNDED] 


[identifier-n [ROUNDED] ]... [ON SIZE ERROR imperative-statement | 


identifier-1 | (меннен с gem 


цо ek? literal-2 literal-3 


| ... СІУІКС 


identifier-m [ROUNDED] [ON SIZE ERROR imperative-statement | 


ідепёі#іег- 1 


тіке | [USING data-name-1 [data-name-2]...] 


CALL | 
[ON OVERFLOW imperative-statement] 


с e Гете as 


literal-1 literal-2 
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REEL | | WITH NO REWIND 
UNIT | [FOR REMOVAL 


CLOSE f1le-name-1 ага NO REWIND 
БИЖ 


REEL | [WITH NO REWIND 
UNIT | | FOR REMOVAL J 
NO SEH 


WITH ЕЕ 


[file-name-2 
COMPUTE identifier-1 [ROUNDED][identifier-2 [ROUNDED]]... 


identifier-2 
literal (ОМ SIZE ERROR imperative-statement] 
arithmetic expression 


DELETE file-name RECORD [INVALID KEY imperative-statement] 


identifier-1 identifier-2 š 
DISPLAY мачи d шч, | [UPON тпетопіс-пате] 
identifier-1 e Ke 
DIVIDE ; INTO identifier-2 [ROUNDED] 
—— |І1гега1-1 — — Q 


[identifier-3 [ROUNDED]].. .[ON SIZE ERROR imperative-statement] 


identifier-1 identifier-2 
DIVIDE | Чч ЕШ 


erp titeral-2 | GIVING identifier-3 


[ROUNDED] [identifier-4 [ROUNDED]] 


[ON SIZE ERROR imperative-statement ] 


literal-1 Ltes tsch | GIVING identifier-3 


identifier-1 identifier-2 
DIVIDE | UE 


[ROUNDED] REMAINDER identifier-4 
[ON SIZE ERROR imperative-statement | 
EXIT [PROGRAM]. 


GENERATE ти | 
— | report-name 


СО ТО procedure-name 
GO TO procedure-name-1 [procedure-name-2]... DEPENDING ON identifier 


statement-{ ELSE statement-2 
NEXT SENTENCE ELSE NEXT SENTENCE 


— ee —— —  ---------- 


IF condition | 
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INSPECT identifier-1 TALLYING 


ALL identifier-3 
(identifier-2 FOR] |LEADING| |literal-! 
CHARACTERS 
BEFORE identifier-4 
IPR INITIAL bg 1 ББ 


INSPECT identifier-1 REPLACING 


SEN E BEFORE INITIAL МЕК 


а 4 AFTER ` Literal=3 


LEADING А 
FIRST ` literal=3 literal 5 


BEFORE 
AFTER 


АЫ, Gë HH ВҮ ze AC, 


upéckt Su SR 


Lane an s 


INSPECT identifier-1 TALLYING as above REPLACING as above 


S ASCENDING „ш piil 
MERGE file-name-1 on] E, | KEY data-name-1 [data-name-2]... 


ASCENDING 


[он | SE, | KEY data-name-3 [data-name-4]...]... 


[COLLATING SEQUENCE IS alphabet-name] 


USING file-name-1 Ғі1е-паше-2 [file-name-3].. 


OUTPUT PROCEDURE IS section-name-1 [THRU section-name-2] 
GIVING file-name-5 


MOVE identifier-1 TO identifier-2 [identifier-3]. 
—— |literal-1 — 


млтїргү Í identifter-1 | рү identifier-2 [ROUNDED] 
MSANE | 1iteral-1 2 


[identifier-3 [ROUNDED]]... 


[ON SIZE ERROR imperative-statement | 


11сега1-1 literal-2 
[ROUNDED] [identifier-4 [АООМрЕр]]... 


MULTIPLY [чен и Пин: GIVING identifier-3 


[ON SIZE ERROR imperative-statement | 
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— ме ккк === === FS E _ 4°)» 


INPUT file-name-1 [WITH NO REWIND][file-name-2[WITH NO REWIND]]... 

OUTPUT file-name-3[WITH NO REWIND][file-name-3[WITH NO REWIND]]... 
ОРЕН 2 А жө АШЫЛ. — ХОД 
—— | I-0 file-name-5 file-name-6 ... 


EXTEND file-name-7 file-name-8 ... 


INPUT file-name-1 [file-name-2]... 
OPEN { OUTPUT file-name-3 [#і1е-пате-4]...(.. 
1-0 file-name-5 ІҒі1е-папе-61... 


PERFORM procedure-name-1 [THRU procedure-name-1] 
Bees james 
integer — 
UNTIL condition 


PERFORM procedure-name-1 [THRU procedure-name-2] 


index-name-1 


identifier-1 literal-1 


identifier-2 


literal-2 | 


| КЕРІ identifier-3 


index-name-2 
VARY ING | Y | 


UNTIL сопаіёіоп- 1 


іпдаех-пате- 3 


identifier-4 с Каз 


[AFTER | 
identifier-5 


FROM literal-4 | 


identifier-6 


index-name-4 
BY | 


UNTIL condition-2 


іпйех-паше-5 


identifier-7 | ERON | ВА 


literal-5 


identifier-8 


index-name-6, 
| identifier-9 


[AFTER | рч | 


UNTIL condition-3]] 
READ Ei dean [NEXT] RECORD [INTO identifier] 
(АТ END imperative-statement] 
READ file-name RECORD [INTO identifier] [KEY IS data-name] 
[INVALID KEY imperative-statement | 
RELEASE record-name [FROM identifier] 
RETURN file-name record [INTO identifier] 
AT END imperative-statement 
REWRITE record-name [FROM identifier] 


(INVALID KEY imperative-statement ] 


266 Appendices дыны а ЖИЕНИ EE ынын нн 


index-name 
‚|! 


SEARCH identifier-1 [VARYING l: ge 
— —— | identifier” 


[AT END imperative-statement-1] 


em tn u) 


WHEN condition-{ late жекен 


= мы за idg ТЫ 


[WHEN condition-2 [= м SENTENCE 


SEARCH ALL identifier-1 
[AT END imperative-statement-1] 


WHEN special-condition-1 [AND special-condition-2]... 


imperative-statement-2 
NEXT SENTENCE 


(special condition) 


IS EQUAL TO 


IS = 1іёега1- 1 


| ISS | 
arithmetic-expression 


data-name-1 | 


сопаіёіоп-пате- 1 


literal-1 
integer 


SET 


be äng Hagen то | 


іпаех-пате- 3 
identifier-1||[identifier-2]... | 


SET іпдех-паше-1 [їпдех-паше-2]...] ҮР ВҮ | BH 


DOWN BY integer 


ASCENDING 


SORT file-name-1 ON | DESCENDING 


| Key identifier-1 ... 

[ON DESCENDING 
ASCENDING 

[COLLATING SEQUENCE IS alphabet-name] 


INPUT PROCEDURE IS section-name [THRU section-name-2] 
USING file-name-2 file-name-3 ... 


| кен identifier-2 ...]... 


OUTPUT PROCEDURE IS section-name-3 [THRU section-name-4] 
GIVING file-name-3 


EQUAL TO 


GREATER THAN 
277 data-name | 


START file-name [KEY IS 


NOT LESS THAN 
NOT < 


(INVALID KEY imperative-statement | 
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literal 
STOP [zus | 
š O AN ; Р identifier-3 
STRING | dentifier-1| |identifier-2| | DELIMITED BY | literal-3 
—— n |literal-1 llteral-2 — 


SIZE 


uta rede 


identifier-6 
literal-4 literal-5 {| . 


Е. DELIMITED BY | 1itera1-6 
SIZE 


INTO identifier-7 [WITH POINTER identifier-8] 
[ON OVERFLOW imperative-statement] 


SUBTRACT dee? | а 


identifier-1 Yer 22 et, henna 


[ROUNDED] [identifier-n [ROUNDED]]... 
(ОМ SIZE ERROR imperative-statement] 


EUBTRACT Kaes? үчкө literal-m 


identifier-1 E get [елт 
GIVING identifier-n [ROUNDED]...[identifier-o [ROUNDED]]... 
[ON SIZE ERROR imperative-statement] 

SUPPRESS PRINTING 


Ze CN 


UNSTRING identifier-1 [DELIMITED BY алқаны 


[OR ышаны. |! 2 


literal-2 
INTO identifier-4 [DELIMITER IN identifier-5] 


(COUNT IN identifier-6] [ідепёіғіег-7 
[DELIMITER IN identifier-8] [COUNT IN ійепёі#Ғіег-9]]... 
(WITH POINTER identifier-10] [TALLYING IN identifier-11] 


(ОМ OVERFLOW imperative-statement] 
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EXCEPT ION 
USE AFTER STANDARD LS PROCEDURE ОМ 
file-name-1 file-name-2 
INPUT 
OUTPUT 
1-0 
EXTEND 


USE BEFORE REPORTING identifier 
WRITE record-name [FROM identifier] 
[INVALID KEY imperative-statement | 


WRITE record-name [FROM identifier-1] 
identifier LINES 


BEFORE integer LINES 
AFTER | ADVANCING mnemon ic-name 
PAGE 
[АТ БООР KAGH imperative-statement | 
ЕОР 
CONDITIES 
GREATER THAN 

identif ier-1 LESS THAN identifier-2 
literal-1 IS [NOT] EQUAL TO literal-2 
arithmetic-expression-1 — |> arith-expression-2 
index-name-1 < іпдех-пате- 2 
i SE NUMERIC 
identifier IS [NOT] АТРНАВЕТІС | 


| РО5ІТІУЕ 
arithmetic expression is [МОТ] ES 
ZERO 


INDEX 


АССЕРТ 03 

ACCESS MODE ТЗ 

A gn A4 
ADD С1 

ADVANCING ОЗ 

ALL literal G5 

ALTER D2 


ALTERNATE RECORD KEY T5 


Arithmetische expressie C5 
AUTHOR Jl, M2 


Beeldscherm A2, P1 
BLANK WHEN ZERO F2 
Blok A4 

BLOCK CONTAINS E2 


CALL U2 

CANCEL U4 

Case constructie K4, P2 
CLOSE G1 

COLLATING SEQUENCE R2 
COLUMN 53 

Commentaar J1 

Compilatie A6 
COMPUTATIONAL F2, H3 
COMPUTE C3 


Conditionele opdrachten D1, 11 


samengesteld 12 
Condition-name Q4 
CONFIGURATION SECTION 
Controle structuren K2 
CONTROLS ARE 53 
COPY 01 
CORRESPONDING H1 
Cilinder Т1 


D in kolom 7 Q2 
DATA DIVISION B1, El 
conventies M3 


J2 


DATE-COMPILED J1 
DATE-WRITTEN J1 
Debugging J4 
hulpmiddelen Q2 
Debug-regels K2, Q2 
Defensief programmeren K2 
DELETE T3, T4 
Directe toegang T1 
DISPLAY Q3 
DIVIDE C2 
Documentatie M1 
Doe...steeds wanneer L3 
Doeltaal-programma A6 
bibliotheek U1 
DYNAMIC T4 


END-IF L3 

END-PERFORM L3 
ENVIRONMENT DIVISION B1,J2 
EVALUATE P2 

EXIT D5, K4, K5 

EXIT PERFORM U3 

EXIT PROGRAM 03 

EXTEND T2 


FD E? 

Figuratieve constante B4, G5 
FILE-CONTROL J2 

FILE SECTION E2 

FILLER F1 

FINAL 53 

Functioneel testen N1 


Gegevensstructuurdiagram L1 
GENERATE 54 
Gereserveerde woorden В? ‚App.C 
Gestructureerd Nederlands 

L3, M1, М2 
Gestructureerd programmeren КЗ 


М3, Р2 


Globale variabelen 
GO TO D1 
in gestructureerde program- 
ma's K5 
Grote programma's КІ 


IDENTIFICATION DIVISION 
B1, J1 
IF Di 
geneste- I3 
INDEX О5 
INDEXED BY 05 
INDEXED T4 
Indices H3 
INITIATE 54 
INPUT-OUTPUT SECTION 242 
INPUT PROCEDURE R4 
INSPECT О1 
INSTALLATION Jl 
Interactieve dialogen P 
INVALID KEY T2 
I-O-CONTROL J2 
O Т2 


Key 
van te sorteren bestand 
R1, R2 
van tabel bij SEARCH 05 
van schijfrecord T3,T4,T5 
KEY IS Т5 
Kwalificatie H1 


LABEL RECORDS E2 
Labels van bestanden А4 
Level nummers E3 

Level-88 condition name Q4 
Lichtpen A2 

LINKAGE SECTION U3 
literals B4, G5 

Lokale variabelen M3, P2 


Magneetschijf A4, T1 
Magneetband А4 

Menu P2 

MERGE R6 
Minimaal-grondig testen N2 
MOVE G4 

MULTIPLY C2 


Naamgeving B3 
conventies M3, M4 
NOT SIZE ERROR K4 


OBJECT-COMPUTER 42, R5 
OCCURS H3 
OPEN G1 

І-О T2 

EXTEND T2 
OUTPUT PROCEDURE R5 
Overlay U4 


PAGE G3 
PAGE-COUNTER 53 
PAGE-LIMIT 53 
Parameters K4, M3, P2, U2 
PERFORM D3 
geneste D4 
TIMES, VARYING, UNTIL 14 
VARYING AFTER 04 
PICTURE E3, F2, F3 
PROCEDURE DIVISION B1, C1 
USING U3 
conventies M4 
PROGRAM-ID Jl 
Programma-specificaties 
M1, N1, Арр.А 


А5, J3, 


Random access T 
RD 53 
READ G2 

NEXT T4 
Record A4 

beschrijving E3 
RECORD KEY T4 
REDEFINES H2 
Regeldrukker A3 
RELATIVE KEY T3 
RELEASE R4 
REMAINDER C2 
REPLACING 01 
REPORT SECTION 853 
Report Writer 51 
RESERVE n AREAS J2 
RETURN R5 
REWRITE T2, T3, T4 
ROUNDED C1 


— n. Index 271 
ende 21 


Schijvenpakket Т1 
bestandsorganisatie T2 
SD R3 
SEARCH О5 
SECURITY J1 
Segmentatie U4 
SEGMENT LIMIT U4 
SELECT...ASSIGN J2 
SET О5 
SIZE ERROR C1 
SORT КІ, ЕЗ 
eigen codering R4, R5 
SOURCE 53 
SOURCE-COMPUTER J2 
SPECIAL-NAMES J3 
Spoor ТІ 
START Т4 
Statusovergangstabellen P3,P4 
STOP 04 
STRING O7 
Stroomschema's А5 
Subprogramma U2, U3 
SUM 53 
SYNCHRONIZED F2 


.Trace-faciliteiten 


Tabellen 
tabelraadpleging O2 
sequentiële zoek- 03, O5 
logaritmische zoek- O4, O5 
twee dimensies O7 

TALLYING Ol 

TERMINATE 54 

Ter plaatse wijzigen Т2 

Testen М 

J4, Q2 

ТҮРЕ 53 


Uitgangstaalprogramma А6 
bibliotheek 01 

UNSTRING O8 

USAGE COMPUTATIONAL Е2,Н3 


VALUE Е, 05 
VALUE OF IDENTIFICATION Е? 
Voorbeeldprogramma, J3, App.A 


WORKING STORAGE SECTION F1 
WRITE G2 À 

naar regeldrukker G3 

naar schijf T 


Zichzelf-controlerende programma's 
N4 


ACADEMIC SERVICE INFORMATICA UITGAVEN 
AUTOMATISERING EN COMPUTERS 


Computers en onze informatiemaatschappij - M.A. Arbib 

Computers іп de negentiger jaren - G.L. Simons 

De informatiemaatschappij - Jan Everink 

Op weg naar een risicoloze maatschappij? - Jan Holvast 

Basiskennis informatieverwerking - Jan Everink 

AIV, Automatisering van de informatieverzorging - Th.J.G. Derksen & H.W. Crins 

BIV, Basis van de geautomatiseerde informatieverzorging - Th.J.G. Derksen & H.W. Crins 
Organisatie, informatie en computers - David M. Kroenke 

Computers in de basisschool - Н. Lamers & J.A. Wegkamp 

Effectieve toepassingen van computers - M. Peltu 


MICROCOMPUTERS 


Microcomputers thuis еп op school - К.Р. Goldberg & D. Sherwood 

Bouw zelf een expertsysteem in BASIC - Chris Naylor 

Programmeercursus MicrosoftBASIC - Nok van Veen 

Werken met bestanden in BASIC - LeRoy Finkel & Jerald R. Brown 

Programmeercursus BASIC op de Commodore 64 - Nok van Veen 

Werken met bestanden op de Commodore 64 - G. Fisher, L. Finkel & J.R. Brown 

Het Electron en BBC Micro boek - Jim McGregor & Alan Watt 

Werken met bestanden op de Apple - LeRoy Finkel & Jerald R. Brown 

Programmeercursus ApplesoftBASIC - Nok уап Veen & Ad van Delft 

Programmeercursus MSX BASIC - Nok van Veen 

Werken met bestanden in MSX BASIC - LeRoy Finkel & Jerald R. Brown 

40 grafische programma's - voor de Commodore 64; voor de Electron en BBC; voor de 
ZX Spectrum; voor de Apple II, Пе en Пс; in MSX BASIC - Marcel Sutter 


MICROPROCESSORS EN ASSEMELEERTALEN 


Procescomputers, basisbegrippen - J.E. Rooda & W.C. Boot 

Cursus 2-80 assembleertaal - Roger Hutty 

6502 assembleertaal en machinecode voor beginners - A.P. Stephenson 
ЕХАТ-һапароек - Місто-Теасһ 


BESTURINGSSYSTEMEN 


Inleiding besturingssystemen - A.M. Lister 

Theorie en praktijk van besturingssystemen - J.L. Peterson & A. Silberschatz 
Systeemprogrammatuur en softwareontwikkeling voor microcomputers - Е. Verhulst 
Bedrijfssystemen - ЕІТ-вегіе, deel 4 

CP/M, het operating system voor microcomputers - J.N. Fernandez & R. Ashley 

CP/M 86, een besturingssysteem voor 16 bit microcomputers - J.N. Fernandez & R. Ashley 
CP/M voor gevorderden - A. Clarke е.а. 

PC DOS, het besturingssysteem van de IBM PC - К. Ashley & J.N. Fernandez 

MS DOS, het besturingssysteem voor 16 bit microcomputers - R. Ashley & J.N. Fernandez 
UNIX, het standaard operating system - G.J.M. Austen & H.J. Thomassen 

De UNIX programmeeromgeving - B.W. Kernighan 8 R. Pike 


PERSONAL COMPUTERS EN PROGRAMMAPAKKETTEN 


De IBM PC en zijn toepassingen - Laurence Press 

Werken met bestanden in IBM- en GW-BASIC - J.R. Brown & LeRoy Finkel 
40 grafische programma's in IBM- en GW-BASIC - Marcel Sutter 
Werken met VisiCalc - С. Klitzner & M.J. Plociak Jr. 

Multiplan, een hulpmiddel bij de bedrijfsvoering - D.F. Cobb е.а. 
Werken met Lotus 1-2-3 - G.T. LeBlond а D.F. Cobb 

Lotus 1-2-3: Tips, Trucs en Tegenvallers - D. Andersen & D.F. Cobb 
Lotus 1-2-3: Financiële macro's - Thomas W. Carlton 

Symphony deel I en II - D.P. Ewing & G.T. LeBlond 

dBASE III handboek - George Tsu-der Chou 

WordStar stap voor stap - Ruth Ashley & Judi N. Fernandez 


PROGRAMMEREN 


Een methode van programmeren - Edsger W. Dijkstra & W.H.J. Feijen 

Programmeren, met ontwerpen van algoritmen (met Pascal) - J.J. van Amstel 

Voortgezet programmeren, het ontwerpen van datastructuren en algoritmen - J.J. van 
Amstel & J.A.A.M. Poirters 


Problemen oplossen met де computer - R.G. Dromey 

Inleiding tot het programmeren, deel 1 еп 2-4 .Ј. van Amstel е.а. 

Het Groot Pascal Spreukenboek - Henry F. Ledgard е.а. 

Software engineering, het bouwen van grote programma's - 1. Sommerville 
JSP Jackson struktureel programmeren - Henk Jansen 

JSP Uitwerkingenboek, JSP Procedureboek - Henk Jansen 


PROGRAMMEERTALEN 


Aspecten van programmeertalen - J.J. van Amstel & J.A.A.M. Poirters 
Programmeertalen, een inleiding - J.J. van Amstel e.a. 

Colloquium programmeertalen - red. J.A.A.M. Poirters & G.J. Schoenmaker 
BASIC - EIT-serie, deel 3 

Cursus BASIC, een practicum handleiding voor BASIC op de PRIME - В. Bloothoofd е.а. 
Een programmeercursus in BASIC - Nok van Veen & René Wissing 

Cursus Pascal - A. van der Sluis & С.А.С. Görts 

Cursus eenvoudig Pascal - A. van der Sluis & C.A.C. Görts 

Inleiding programmeren in Pascal - С. van de Wijgaart 

Modula-2 - Е. Verhulst 

Systeemontwikkeling met Ada - Grady Booch 

Cursus COBOL - A. Parkin 

Cursus FORTRAN 77 - J.N.P. Hume & R.C. Holt 

De programmeertaal С - L. Ammeraal 

Flitsend Forth - Alan Winfield 

Logisch LOGO - Auke Sikma 

Programmeren in LISP - L.L. Steels 

Micro-PROLOG, programmeren in logica - K.L. Clarke & F.G.McGabe 
Inleiding PROLOG - W. Burnham & A. Hall 


BESTANDSORGANISATIE, DATABASE EN GEGEVENSANALYSE 


Bestandsorganisatie - R.J. Lunbeck & F. Remmen 

Database, een inleiding - C.J. Date 

Databases, grondslagen voor de logische structuur - F. Remmen 
SQL in de praktijk - H.B. Eilers e.a. 

Het SQL Leerboek - Rick F. van der Lans 

Gegevensanalyse - В.Р. Langerhorst 


INFORMATIE-ANALYSE EN SYSTEEMONTWERP 


Inleiding systeemanalyse en systeemontwerp - W.S. Davis 

Systeemontwikkeling zonder zorgen - Paul Т. Ward : 

Systeemontwikkeling volgens SDM - H.B. Eilers 

Samenvatting SDM - Pandata 

Systeemontwikkeling volgens JSD - Michael Jackson 

Informatie-analyse volgens NIAM - J.J.V.R. Wintraecken 

Information engineering - J. Blank 

Het ontwerpen van interactieve toepassingen en computernetwerken - J.A. Scheltens 
EDP Audit - C. de Васкег 

Management informatiesystemen - G.B. Davis & M.H. Olson 

Prototyping, een instrument voor systeemontwerpers - red. Т. Hoenderkamp & H.G. Sol 
Het ontwikkelen van informatiesystemen met prototyping - В. Vonk 
Simulatie, een moderne methode van onderzoek - 5.К.Т. Boersma & Т. Hoenderkamp 


EXPERTSYSTEMEN EN KUNSTMATIGE INTELLIGENTIE 

Kunstmatige intelligentie - Patrick H. Winston 

Expertsystemen - Henk de Swaan Arons & Peter van Lith 

Ontwikkelingen in expertsystemen - red. A. Nijholt & L.L. Steels 

THEORETISCHE INFORMATICA EN SYSTEEMPROGRAMMA TUUR 

Systeemprogrammatuur - Н. Alblas 

Vertalerbouw - H. Alblas е.а. 

OPERATIONELE RESEARCH 
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Over dit boek 


Het eerste deel van dit boek behandelt die begrippen die de 
student in staat stellen eenvoudige COBOL-programma's te 
schrijven, die gebruik maken van sequentieel georganiseerde 
bestanden. Omdat gestructureerd programmeren inmiddels 
dermate is ingeburgerd zijn in de tweede hierziene versie van 
dit succesvolle boek in het tweede deel enige hoofdstukken 
over dit onderwerp toegevoegd. Hierin wordt behandeld hoe de 
analyse van gegevensstructuren resulteert in een 
gestructureerd programmaontwerp еп hoe dit ontwerp in 
COBOL kan worden weergegeven. Een andere belangrijke 
toevoeging betreft het programmeren van interactieve dialogen. 
Het boek is nu volledig gebaseerd op de laatste (1974) ANS 
standaard en belangrijke voorstellen voor wijzigingen van de 
ANS COBOL-standaard die de afgelopen jaren zijn ingediend 
worden waar toepasselijk vermeld. In het derde gedeelte van 
het boek wordt de nodige aandacht besteed aan o.a.: 

- het werken met direct georganiseerde bestanden; 

- het werken met de report writer; 

- sorteren. 


